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Vorwort. 


Der VC-20 hat sich nicht nur in der Bundesrepublik Deutschland 
sondern in der ganzen Welt als ein zumindest beachtenswerter 
Heim-Computer einen Namen gemacht. Dies beweist nicht nur die ho- 
he Verkaufszahl (in den USA ca. 1.000.000, in der Bundesrepublik 
Deutschland ca, 100.000), sondern auch seine Qualitat, welche man 
für einen recht günstigen Preis erwerben kann. Es ware mußig, 
seine mannigfaltigen Moglichkeiten alle aufzufuhren. Denn einge- 
weihten VC-20-Fans sind sie ohnehin gelaufig, 


Trotz der doch eigentlich nachgewiesenermaßen großen Akzeptanz 
des VC-20 muß der Benutzer eines solchen Rechners, und erst 
recht der Programmierer, feststellen, daß es mit der VC-20-Lite- 
ratur ein wenig hapert, nicht nur in der BRD. Zwar kann man von 
VC-20-Programmen heute überschuttet werden, sowohl von den Spezi- 
algeschäften als auch von zahlreichen Tausch-Vereinen oder Freun- 
den/Bekannten, jedoch geben diese demjenigen, der manche Beson- 
derheiten des VC-20 besser verstehen mochte, keine oder nur sehr 
spärliche Antworten auf viele anstehenden Fragen. 


Dieses Buch ist also insbesondere auf diejenigen Leser zuge- 
schnitten, die ebenfalls wie wir, die Autoren, die Absicht ver- 
folgen, aus dem relativ harmlos aussehenden VC-20 moglichst viele 
seiner verborgenen Leistungen aufzuspuren und sinnvoll zu benut- 
zen. Naturlich wird auch der VC-20-Anfänger mit, so hoffen wir, 
den meisten in diesem Buch enthaltenen Programmen direkt von An- 
fang an nutzbringende Eigenanwendungen realisieren (lassen) kon- 
nen, Jedoch setzen wir bewußt den Hebel beim eingefleischten VC- 
20-Benutzer/Programmierer an, weil wir glauben, daß die ersten 
aufkommenden Fragen ohnehin durch die bestehenden Bucher, z.B. 
das VC-20-Handbuch und VC-20-Programmier-Handbuch beantwortet 
werden, 


Um es offen auszusprechen, dieses Buch nimmt also keinen Aus- 
schließlichkeitscharakter fur sich in Anspruch. "Zuarbeit" bzw, 
zusätzliche Information z.B. durch oben genannte Bucher sind zwar 
nicht unbedingt nötig, wurden wir jedoch empfehlen, 


Dieses Buch stellt zahlreiche Programmierhilfsmittel, Programme 
bzw. Programmmodule und Tricks zur Verfügung, die dem Leser nicht 
nur explizit seiner Losungssuche fur individuelle Programme, son- 


dern auch implizit hilfreich zur Seite stehen können. Damit der 
Leser sich nicht mit der Eintipperei der zahlreichen Programme 
abquälen muß, bietet der Verlag dieses Buches den Versand der 
Kassette bzw. Diskette an, die alle Programme enthält, 


Wie es nun mal bei Büchern so vorkommt, werden Sie, verehrte Le- 
ser, sicherlich auch auf Fehler stoßen. Sie lassen sich einfach 
nicht vermeiden. Ein Philologe, der bei der Wahl seiner Worte 
nicht so sehr auf das 6. Bit vom 10, Byte eines Programms achten 
muß, hat es bei seiner Schriftstellerei erheblich einfacher 
(selbstverständlich soll diese Bemerkung in keinster Weise den 
Wert eines solchen Buches in Frage stellen). Die Leser mogen also 
fur solche von uns uübersehenen Fehler Verstandnis haben. Jeden 
von Ihnen kommender Kommentar bzw. Korrekturhinweis werden wir 
uns natürlich zu Herzen nehmen und in Folgeauflagen (falls Nach- 
frage besteht) berücksichtigen, 


Mit diesem Buch verfolgt der Verlag ein neues Prinzip, woran wir 
in der ersten Zeit der Erstellung zu "knabbern" hatten. Der Ver- 
lag stellte uns einen komfortablen Textverarbeitungs-Computer zur 
Verfügung, in den wir gewissermaßen alles selbst eintippen muß- 
ten, Ein paar Wochen Verzögerung bei der Herausgabe ließ sich 
deswegen nicht vermeiden, 


Wir danken dem Verlag dafur, daß er uns Buch-Pionieren die Mog- 
lichkeit gegeben hat, Ihnen, verehrte Leser, unserer (wir meinen 
kompetenter) Meinung nach hochwertige Programme (die natürlich 
gut getestet und vor allem selbst benutzt worden sind und werden) 
zugänglich zu machen. 


Allerdings gilt unser Dank noch mehr unseren beiden Familien, die 
ruhrendes Verstandnis (zwar oft mit verärgerter Anti-Computer-Mi- 
ne) fur dieses von uns Familienvätern momentan bevorzugte Hobby 
und der damit verbundenen Erstellung dieses Buches hatten, 


Michael Hegenbarth und Michael Schäfer 
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Nutzung von Peripheriegeräten 


1.1 Lichtgriffel 


1.1 DER LICHTGRIFFEL 


Der Lichtgriffel, auch Lightpen genannt, bietet dem Benutzer eine 
vollig neue Art, mit seinem Computer zu arbeiten. Man ist nicht 
mehr nur auf die Tastatur als Eingabegerat angewiesen, sondern 
kann seine Eingaben direkt auf dem Bildschirm machen, 


Die Bezeichnungen Lichtgriffel oder Lightpen sind eigentlich 
falsch, denn mit dem Lichtgriffel kann man gar nicht schreiben, 
Die Spitze des Lichtgriffels besteht aus eırıem Foto-Transıstor, 
der den Anodenstrahl der Bildrohre abfragt und an seinem Ausgang 
immer darn einen negativen Impuls liefert, wern der Anodenstrahl 
auf den Foto-Transistor trifft. Dieser Impuls ist der Anreiz fur 
den VIC, die aktuelle Position des Anodenstrahls als horizontale 
und vertikale Koordinaten in die beiden Kontrollregister CRb und 
CR7 zu schreiben. 


«5V 


Light Pen 





GND 


T1 =C@Y78.0a. 
T2 = BC 107 oa. 
RI = 560N 
R2= 221N 


Bild 1.1.1: Light Pen 
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1.1 Lichtgriffel 


In der in Bild 111 gezeigten Schaltung liefert der Foto-Transi- 
stor T1 einen positiven Impuls, der mit T2 invertiert und ver- 
starkt wird. Der Widerstand R2 hat die Aufgabe, T2 negativ vorzu- 
spannen und so zu verhindern, daß beı normaler Raumbeleuchtung 
schon ein Impuls geliefert wird. Der Widerstand Ri ist der Last- 
widerstand fur T2 und halt den Ausgang des Lichtgriffels auf 
High-Potential. Der Nachbau des Lichtgriffels sollte auch dem un- 
geubten Bastler keine Schwierigkeiten bereiten, lediglich auf ei- 
nen moglichst kompakten Aufbau sollte man achten, damit die 
Schaltung spater in einem alten Kugelschreiber- oder Filzstiftge- 
hause Platz findet, Der Anschluß an den Spiele-Port geschieht 
dann uber ein dreiadriges Kabel. 


BEDIENUNGSHINWEISE 


Das hier behandelte Programm ist ein Beispiel fur die Handhabung 
des Lichtgriffels. Nach RUN sehen Sie auf dem Bildschirm symboli- 
sche Schalter fur die vier Tongeneratoren des VC-20. Durch Be- 
streichen dieser "Schalter" mit dem Lichtgriffel werden die Ton- 
generatoren eingeschaltet und in ihrer Frequenz geändert, solange 
sie den Schalter beruhren, Das Basic-UP ab Zeile 60000 ist uni- 
versell verwendbar und liefert mit den Variablen X und Y die Po- 
sition des Lichtgriffels auf dem Bildschirm, 


PROGRAMM-EINZELHEITEN 


1.) Name: LICHTGRIFFELDEMO 
2.) Ausbaustufe: beliebig 
3.) Art des PGMs: Lichtgriffelabfrage-Programm 
4,) Anzahl der Bytes: 775 
5.) Benutzte Variablen: 
T1 - T4 Adressen der Tongeneratoren 1 bis 4 
L Adresse des Kontrollregisters fur die 
Lautstärke 
F1 - F4 Frequenz für die Tongeneratoren 1 bis 4 
J Schleifenzahler 
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1.1 Lichtgriffel 


X,Y Koordinaten des Lichtgriffels auf dem 
Bildschirm: 
= 0 bis 21 (Spalten) 
= 0 bis 22 (Zeilen) 


6,) Listing! s. Bild 1.1.2 



































Er PRINT", 

4a FÜR Te1T05 

sa FEINT' IB" REM CRSE DUMM + ISHCRSE FI 

5a FFEINTRBRRORRRRR I |" REM IEHORSE FT 

"ea PRETHT "REM IGKURSR FI 

= MET 

aa FRIHT"A"::FEM CRSF HOME 

ta FORT=1TO4 PRINT" Me TOH" "mM" NEST:FREM CRSFR DUH 

11a AUS" REM CRSF DH 

124 15 FOKETL.&: PÜKET2. ©: POKET3.%9:FOKET4.8 

138 

145 4 ND?< 13THENFI=Fi+1 :FOKETI: E3: IFF1=255THENF1=127 
154 h HEHF2=F&+1  FOKET2: : IFF2=255THENF2=127 
1E6 :THEHF@=FÜ3+1 : FOKET3 F3 : IFF3=255THEHF?3=127 
17 STHENHF4=F4+1 : FÜOKET4,F4 ' IFF4=25STHENF4=127 
126 irn SANDY ZRR 13THENI2E 

12A AOTOIER 

Bag REM FOSITION DES IGHT- PEH HACH #& 1 7 

EA] "=IHTÜÜFEEK 712-2395.45: IFYLETHEHT=E 


IFr>2 THEN? 


3 


Oeetd TFASATHENGEE 
Erde 
EEASE 


Bild 1.1.2 
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1.1 Lichtgriffel 


7.) Erläuterungen zum Programm: 
Zeilen 10 - 20: Die benutzten Variablen werden initialisiert 


Zeilen 30 - 80: 
Der Bildschirm wird geloscht, und eine Bildschirmmaske wird 
ausgegeben. 


Zeilen 90 - 110: 
Die Beschriftung der Schalter wird ausgegeben. 


Zeile 120: 
Die vier Tongeneratoren werden ausgeschaltet und vorbereitend 
die großte Lautstarke eingeschaltet. 


Zeile 130: 
Sprurg in die Subroutine; nach Ruckkehr enthalten X und Y die 
Koordinaten des Lichtgriffels. 


Zeile 140: 
Stimmen die Koordinaten des Lichtgriffels mit den Koordinaten 
des 1. "Schalters" überein? Wenn ja, dann wird die Frequenz 


des Tongenerators 1 um 1 erhoht und in das Kontrollregister 
CRA des VIC geschrieben, 


Zeile 150: 2. "Schalter" ? 

Zeile 160: 3. "Schalter" ? 

Zeile 170: 4, "Schalter" ? 

Zeile 180: 

Aus-"Schalter" ? Wenn ja, dann werden die vier Tongenerato- 
ren ausgeschaltet (Zeile 120). 

Zeile 190: Neue Koordinaten holen 

Das Basic-UP ab Zeile 60000 errechnet die Position des Licht- 
griffels auf dem Bildschirm aus den Inhalten der beiden Kon- 


trollregister CR6 und CR7 des VIC und schreibt sie in die Va- 
riablen X und Y. 
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1.1 Lichtgriffel 


CR6 enthält den Wert #30, wenn der Lichtgriffel auf die Ober- 
kante des Bilschirmfensters zeigt, und den Wert #122, wenn er 
auf die Unterkante des Bildschirmfensters weist. Daraus erge- 
ben sich 92 mögliche Vertikalpositionen. 


CR7 enthält den Wert #47, wenn der Lichtgriffel auf die linke 
Kante des Bildschirmfensters zeigt, und den Wert #135, wenn 
er auf die rechte Kante des Bildschirmfensters weist. Daraus 
ergeben sich 88 mogliche Horizontalpositionen. 


Zeile 60010: 

Die Vertikalposition des Lichtgriffels auf dem Bildschirm 
wird in Zeilennummern umgerechnet und der Variablen Y uberge- 
ben. Die Zeilennummern 0 bis 22 sind moglich. Ist die Zeilen- 
nummer kleiner als 0, so wird sie auf 0 festgelegt. 


Zeile 60020: 
Ist die Zeilennummer großer 22, so wird sie auf 22 festgelegt 


Zeile 60030: 

Die Horizontalposition des Lichtgriffels auf dem Bildschirm 
wird in Spaltennummern umgerechnet und der Variablen X uber- 
geben. Die Spaltennummern 0 bis 21 sind moglich. 


Zeile 60040: 
Die Spaltennummer wird auf ein Maximum von 21 begrenzt. 


Zeile 60050: Rucksprung ins Hauptprogramm 


1.2 DREHREGLER AM VC-20 


Die beiden im Video-Interface-Chip (6561) integrierten A/D-Wand- 
ler erlauben unter anderem auch den Anschluß von zwei Drehreglern 
an den VC-20. Ein Drehregler, auch Paddle genannt, besteht aus 
einem regelbaren Widerstand der zwischen +5 V und dem Eingang des 
A/D-Wandlers (Pot X u. Pot Y) geschaltet wird (s. Bild 1.2.1). 
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1.2 Drehregler am VC-20 


T1 

P1 
BE 
o 
GNd 
+5V 
Pot Y 
Joy 3 

T2 

P2 

PI,P2 = IMN 


T1,T2 = Taster IxEin 


Bild 1.2.1: Paddle (Paar) 


Je nach eingestelltem Widerstandswert liegt an diesem Eingang ei- 
ne Spannung zwischen 0 V und +5 V an. Der A/D-Wandler konvertiert 
dieses analoge Signal in eine vom Prozessor lesbare 8-Bit-Zahl 
und stellt diese an den Kontrollregistern (CR8 und CR9) des VIC 
zur Verfügung. Die Adressen der Kontrollregister sind: 


CR& : DEZ 36872 = HEX 9008 
ER 2 DEZ 36873 = HEX 9009 


Die Inhalte der Kontrollregister konnen mittels PEEK(X) ausgele- 
sen und Variablen zugewiesen werden. 
Hier soll ein universell verwendbares Basic-Unterprogramm zur 
Drehreglerabfrage vorgestellt werden. 
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1.2 Drehregler am VC-20 


BEDIENUNGSHINWEISE 


Das Basic-UP wird per GOSUB 60000 aufgerufen, Nach Ruckkehr aus 
dem UP enthalten die Variablen X und Y den digitalisierten Span- 
nungswert vom Pot X bzw. Pot Y. Die Variablen FX und FY enthalten 
1, wenn dıe zu den Drehreglern gehorenden Feuerknopfe gedruckt 
sind. 


PROGRAMM-EINZELHEITEN 


1.) Name: DREHREGLER 
2.) Ausbaustufe: beliebig 
3.) Art des PGMs: Drehreglerabfrage-Unterprogramm 
4.) Anzahl der Bytes: 256 
5.) Benutzte Variablen: 
X Inhalt vom CR& (Pot X) 
Y Inhalt vom CR9 (Pot Y) 
FX Feuerknopf Paddle X 
FY Feuerknopf Paddle Y 
6.) Listing: 8. Bild 1.2,2 






FRHFT RUN 

= PÜT % 

FOT Y 

IAkl PA4=EINGANG 
YIA#e FET=EINGANG 


Bild: 1.2.2 
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1.2 Drehregler am VC-20 


7.) Erlauterungen zum UP: 
Zeıle 60000: Varıable X ubernimmt den Inhalt von CR& (Pot X) 
Zeile 60010: Variable Y ubernimmt den Inhalt von CR9 (Pot Y) 


Zeile 60020: 
Der Port PA4 des VIA#1 wird im Datenrichtungsregister als 
Eingang gekennzeichnet (Joy 2). 


Zeile 60030: 
Der Port PB7 des VIA#2 wird im Datenrichtungsregister als 
Eingang gekennzeichnet (Joy 3). 


Zeile 60040: Feuerkroopf Y nicht gedruckt 
Zeile 60050: Feuerknopf X nicht gedruckt 


Zeile 60060: 
Wenn Bit 4 des Eingaberegisters vom Port A logisch 0 ist, 
dann ist der Feuerknopf gedruckt und FX=1, 


Zeile 60070: 
Wenn Bit 7 des Eingaberegisters vom Port B logisch 0 ist, 
dann ist der Feuerknopf gedruckt und FY=1. 


Zeile 60080: 

Hier werden die Datenrichtungsregister zuruckgesetzt. Wurde 
dies nicht geschehen, waren einige Tasten der Tastatur ge- 
sperrt und ein Arbeiten mit dem Diskettenlaufwerk ware nicht 
mehr moglich. 


Zeile 60090: Rucksprung aus dem Unterprogramm 
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1.3  VC-Thermometer 


1.3 VC-20 ALS THERMOMETER 


Eine weitere Moglichkeit, einen der heiden im VIC integrierten 
A/D-Wandler zu nutzen, soll in diesem Kapitel beschrieben werden. 
Anstelle eines Potentiometers wird in diesem Beispiel ein tempe- 
raturabhangiger Widerstand zwischen +5 V und dem Eingang des A/D- 
Wwandlers geschaltet. In unserem Beispiel wird der integrierte 
Konstantstromregler LM334 als Temperaturfuhler (s, Bild 1.3.1) 
benutzt. Der Aufwand fur Hardware ist gering und das PGM recht 
einfach, 





Pot X 
+5V 
GND 
IC1 = LM 334 
RI =1ıKN 


Der Widerstand wird direkt am Temperaturfühler 
angelötet, 
Unbedingt abgeschirmte Zuleitung verwenden, 


Bild 1.3.1: Temperaturfuhler 


PROGRAMM-EINZELHEITEN 


1.) Name: THERMOMETER 
2.) Ausbaust.ufe: beliebig 
3.) Art des PGMs: Temperaturanzeige-Programm 
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1.3 VC-Thermometer 


4.) Anzahl der Bytes: 232 


5.) Benutzte Variablen: 








CHS CLR HOME 
CDS CRSR DWN 
CUS CRSR UP 
HOS$ HOME 
BLS 7 * SPACE 
P1S CHS + CDS 
P2S HOS + CDS + BLS + CUS 
T Temperatur in Celsius 
6.) Listing: Ss. Bild 1.3.2 
a REM THERMOMETER 
19 CH£="!T!:REM CL 
Pin] Igel" Pe 
29 CU$=""':REM CRSR | 
4a HOE="S]" REM HOME 
a ELF=" ":REM T#5FACE 
eh 





Ab ed 








E+HLtlE 
"GRAD CELSILS" 
TE), 


a 
a 





119 Enke) 


Bild 1.3.2 


7.) Erlauterungen zum PGM: 


Die in unserem Beispiel (Bild 1.3.1) dimensionierte Schaltung 
erlaubt es, Temperaturen im Bereich -35 bis +92.5 Grad Cel- 
sius zu messen. Bei 0 Grad liegt an Pot X (Kontrollregister 
CR8, Adresse S$9008) eine Spannung von 2.1 Van, was einem 
Wert von #185 in CR® entspricht. Eine Temperaturanderung um 


+1 Grad andert den in CR8 ablesbaren Wert um -2. 


Zeilen 10 - 70: 
Die Variablen zur Bildschirmausgabe werden initialisiert. 


Zeile 80: Die Bildschirmmaske wird ausgegeben, 
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1.3  VC-Thermometer 


Zeile 90: 
CR& wird ausgelesen, die Temperatur errechnet und der Varia- 
blen T ubergeben, 


Zeile 100: 
Die Temperatur wird in die Bildschirmmaske geschrieben. 


1.4 FUNKFERNSCHREIBEN MIT DEM VC-20 


Die Betriebsart Funkfernschreiben (RTTY) erfreut sich bei den 
Funkamateuren großer Beliebtheit. Wenn vor ein paar Jahren noch 
die von der Post ausrangierten mechanischen Fernschreiber bei den 
Amateuren hoch im Kurs standen, so sind doch zur Zeit schon sehr 
viele Computer im Einsatz. Angefangen von reinen Nachrichten-Com- 
putern, die nur Funkfernschreibsignale (ASCII oder Baudot) und 
Morse-Zeichen empfangen bzw. senden konnen, bis hin zu Home-Com- 
putern wie dem VC-20. 


Wegen der großen Datenmenge, die in kurzester Zeit anfallt, sind 
RTTY-PGMe fur Home-Computer zumeist in Maschinensprache geschrie- 
ben. Das hier vorgestellte PGM jedoch ist nur in Basic geschrie- 
ben und nutzt die im VC-20 implementierte V.24 (RS232)-Schnitt- 
stelle aus. Diese Schnittstelle ist interrupt-gesteuert und ar- 
beitet unabhangig vom Basic-PGM, so daß genügend Zeit bleibt, die 
empfangenen Zeichen vom Baudot- in den ASCII-Code umzuwandeln und 
auf dem Bildschirm darzustellen, bzw. die Tastatur abzufragen und 
die eingegebenen Zeichen in den Baudot-Code umzuwandeln und aus- 
zusenden. 


BEDIENUNGSHINWEISE 
Das PGM gliedert sich in 3 Teile: 


1. Allgemeiner Teil (Zeilen 10-210) 
- Festlegen der Baud-Rate 
- öffnen des Schreib- und Lesekanals 
- Eingabe der Fix-Texte 
- Umwandlungstabelle Baudot --> ASCII lesen 
- Umwandlungstabelle ASCII --> Baudot lesen 
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1.4 Funkfernschreiben 


2. Empfang 
— Kanal #2 lesen, prufen, umwandeln und Zeichen auf dem Bild- 
schirm darstellen 
—- Tastatur abfragen, prufen und Befehl ausfuhren 


3. Sendung 
- Tastatur abfragen, prufen, umwandeln und Zeichen in Kanal #1 
schreiben 
- bzw. Befehl ausführen 


Belegung der Tastatur mit Sonderfunktionen; 


- Bei Sendung und Empfang: 


Fi Sende/Empfangsumschaltung 
CRS DWN = Bu-Taste 
CRS RI = Zi-Taste 


- Nur bei Empfang: 


0-6 Baud-Rate ändern 
0 45.5 Baud 
1 50 Baud 
2 75  Baud 
3 110  Baud 
4 134,5 Baud 
5 150  Baud 
6 300  Baud 


- Nur bei Sendung: 
F2 - F7 Fix-Texte senden 
F8 Datum und Uhrzeit (UTC) senden 


Anschluß eines RTTY-Konverters an den USER-Port: 


Pin 

B cBi Empfang 
C _PBO ie 

M cCB2 Sendung 
N  GND Masse 
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CB1 und PBO sind parallelzuschalten (Drahtbrücke zwischen Pin B 
und Pin C), siehe dazu auch Seite 134 im Programmier-Handbuch. 


Erläuterungen zum Baudot-Code finden Sie im Anhang A.2. 


PROGRAMM-EINZELHEITEN 
1.) Name: 

2.) Ausbaustufe: 

3.) Art des PGMs: 


4.) Anzahl der Bytes: 


5.) Benutzte Variablen: 


G 
G(X) 
A 

I 

BZ 

£ 

PP 


AS 
BS. 
AS(X) 


BS(CX) 


FS(CX) 
F 


Benutzte Adressen: 
#1 
#659 
#660 
#665 ‚666 


6.) Listing: 


RTTY 
beliebig 
Funkfernschreib-Programm 
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Index für die Baud-Rate 

Baud-Rate als Zahl 

Index fur Umwandlung Baudot --> ASCII 
Schleifenzähler 

Bu/Zi-Modus 

Anzahl der gesendeten Zeichen 
Statusvariable 

1 = Subroutine, 0 = Normal 
ASCII-Zeichen von Tastatur 
Baudot-Zeichen von Kanal 

ASCII-Code für Umwandlung Baudot --> 
ASCII 

Baudot-Code für Umwandlung ASCII > 
Baudot 

Fix-Texte 

Index fur Fix-Texte 


enthalt den Index fur die Baud-Rate (G) 
Kontrollregister RS232 (CHR$(96+G)) 
Befehlsregister RS232 (CHR$(0)) 

enhalten die Zeitkonstante fur die 
RS232-Schnittstelle 


s. Bild 1.4.1 
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ar 
18 


3 

1A6 
118 
124 
1364 
145 
158 
1656 
17 
124 


EM RTTY 
POKE1.2:REM 45 BAUD 
G=PEEK« 13: IFG=BTHENG=1 

OPENZ. 2, 8. CHR$CIE+GI+CHRFCH) 

G=PEEK(1)  IFGSGTHENG=1 

OPENL » 2:1. CHRSCSE+HGI+CHRECH) 

IFFEEK«(1)=GTHEHFOKESER. 94 

DIMASCH3> DINBELSL) 

FRINT"T" 

INPUT" TIME CHHMMSSI" STIEPRINT 
INPUT" DATUM" DE PRINT 
PRINT"FIS-TEXTE EINGEBEN" FORT=2T07 
PRINT PRINT PRINT"TEXT Er 1;"m >" 


















IFASSCHRFCLZ 
PRINTASS FEUDISFECTHAEGOTOISO 
NEST 
PRINT"T" 
G=PEEK(1) 





rer iiaelld:Gcd4ielid, 5:65 een 
:E: FOR Er RERDASCH» NEHT 

FORT= 1T091 :READB: E&C I 5=CHR$(E3 NEHT 

IFST=BAHNDCPEEK 371 S@AHNDEHTHENZZG 

FEIHNT:FRINT" EMPFANG "5.65" NERUDE"  FRINT 

GET#2,E$ 

GETAF: IFAt="M" THENRBZ=G REM CRSR DIN 

REM 

IFA$="w" THENZER REM Fi 

IFA&="M"THENFZ=32:PEM CRSR RI 

IFAS" 7" ANDAS>="" THENFÜKEL. YALÜRR I RUNDE 

IFEF#=""THENGSOTOE4G 

A=ASCKBEI : IFAFCRI="CR" THENPRINTCHRE 13 GOTD240 

IFA=Z7 THENEZ=32 : G0OTOZ4A 

IFA=31 THENBZeA  GOTOZ4E 

FRINTASCA+HBZIG  GOTOEHA 





A REM SENDUNG 


4 PRINT:FRINHT" SENDUNG "5£6> "MEALDE" PRINT 


sa 
aaa] 
Ele 
s2H 
E30 





GETAS$: IFAF=""THENSTE 

IFA$="w" THENPRINT  GOTOZ20 REM Fi 
IFAg="I" THENF=2: GOT0SS6 FEM FZ 
IFA$="®" THENF=3'G0T05S5A REM F3 
IFA$="R" THENF=4 : G0TOSSE REM F4 


A IFAF="" THEHF=S:GOTOSS0 REM FS 


IFA$="4" THENF=6 :GOTOS5SSE REN FE 


ı TFAS="W" THENFS7 GOTOSSA REM FF 


IFAF=" W" THENF=&GOTISS@ REM F& 
IFASCKASI>STHENZTE 

IFASSCHR$C 13 THENPRINT#2CHRECSI SCHREÜ2I Ze PRINT IFPP=ATHENSTO 
IFA=" M" THENPRINT#ZCHR$C31); B2=32 6010370 

IFAF="M"THENPRINT#2, CHR$(279;  BZ=i GOTOS7A 

FRINTAE: :2=2+1  IFZ=BGTHENASSCHRE 139 G0TO4 7 
IFFIECA"ANDEZ=32THENFRINTR2,CHRS2T 5; BZ=H 
IFAS>"@"ANDEZ=ATHENPRINTHZ,CHRECHL I: BZ=32 

B PRINTH2, BECRSOCHES »: SIFPPSOTHENSTO 

PETURN 

FECHISDEHCHRELLSI+LEFTECTIE 294" "MIDEETIE 3.294" LITOH 
IFLEN“FECFID=ATHENSTA 

FP=1 

A$=CHRE( 13) :G0SUB47G 

FORT=1TOLENCFECFD N 

AF=MIDFCFFÜFD. I, 1) 

GOSLIB47E 

NEXT 

PF=0: 6070378 








Bild 1.4.1 (Teil 1) 
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E84 DATAF,E:"". A." I», CR, y FR T.N4 FC 

En DATAKT Zu, Q,E: 

BER DATA"" MA, WM," Ess CR: € 

Er nn" 
[etals] ie 

saa Ad. 0. 0.0,5.9,0.9.0.0,0,0 A, 8 ‚9,9.9,9.6 

aa r A, 3.0.0.0. 28,15 


rı1a 2 »19,16,21,7.6,24.14, 11:5 
2A DATA2R: A. 2=,0, 1949,15, 13,2 6,11.19:18, 29.12, 24,22 
736 DATR23, 16.5,16, 2 23 1 ‚31,27.4,80 









Bild 1.4.1 (Teil 2) 


Erläuterungen zum Programm: 


Zeile 10; 
Der Index fur die Baud-Rate (hier 45.45 Bd) wird in eine un- 
benutzte Zero-Page-Adresse geschrieben. 


Zeile 20 - 60: 

G ubernimmt den Index fur die Baud-Rate aus Adresse 1. Der 

Lesekanal (#2) und der Schreibkanal (#1) werden geoffnet, Das 

Bit-Muster fur CHR$(96+G) sieht bei G=1 folgendermaßen aus: 
Bit 76543210 

01L10000% 

Die Beschreibung der einzelnen Bits finden Sie im Program- 

mier-Handbuch auf Seite 131. In unserem Fall bedeutet es: 

1 Datenwort ist 5 Bit breit plus 1 Stop-Bit, die Baud-Rate 

ist 50 Bd. Das Bit-Muster fur CHR$(0) ist! 


Bit 7654321 
0000000 
und bedeutet: Vollduplex-Betrieb und keine Paritatsprufung. 


Um die auf den Amateurfunkbandern übliche Baud-Rate von 45,45 
Bd zu realisieren, sind Kenntnisse uber den Programmablauf 
beim öffnen der RS232-Schnittstelle notwendig. Hier sei dazu 
nur folgendes gesagt: 

Nach OPEN steht in den Adressen #665 und #666 bzw. 50294 und 
502935 die Zeitkonstante K fur 1 Bit. Für jedes zu sendende 
oder zu empfangende Bit wird diese Konstante K dem Timer 1 
des VIA #1 übergeben, Dieser zählt diese Konstante mit einer 
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Taktfrequenz von f=1.1 MHz auf 0 herunter, 
Die Konstante K läßt sich folgendermaßen berechnen: 


= f/BR (BR = Baud-Rate) 


Bei 50 Bd ist K = 22000 (DEZ) = 56BA (HEX). 

Bei 45,45 Bd ist K = 24200 (DEZ) = 5E8A (HEX). 

Die so errechnete Zeitkonstante muß fur 45.45 Baud in die 
Adressen #665,666 gePOKEd werden (Zeile 60). In unserem Fall 
wird nur das HIGH-Byte (#666) geandert, denn die Differenz 
der LOW-Bytes ist vernachlassigbar klein. 

Nach der oben beschriebenen Methode lassen sich alle Baud-Ra- 
ten realisieren, Bei Baud-Raten großer als 300 Bd sollten 
aber Maschinen-Programme zum Auslesen der Pufferspeicher be- 
nutzt werden, um einen Datenverlust zu vermeiden (s. Program- 
mier- -Handbuch, Beschreibung der RS232-Schnittstelle). 


Zeilen 70 - 210: 

Die Variablen zur Umwandlung von ASCII nach Baudot und umge- 
kehrt werden dimensioniert und mit der Umwandlungstabelle in 
den Zeilen 640-730 geladen, 

Die Fix-Texte werden eingegeben und die restlichen Variablen 
werden initialisert. 


Zeile 220: 
Warten, bis kein Zeichen mehr im Ausgabepuffer steht 


Zeilen 230 - 340: } 
Das erste Zeichen wird mit GET#2 aus dem Puffer des Kanals #2 
gelesen und auf Gultigkeit geprüft. Gultige Zeichen werden in 
ASCII-Code umgewandelt und auf dem Bildschirm dargestellt. 
Die Tastatur wird abgefragt und eventuell eingegebene Befehle 
werden ausgefuhrt. 
Befehle konnen sein: - Umschalten auf Sendung 

- Umschalten in Bu-Modus 

- Umschalten in Zi-Modus 


Zeilen 350 - 630: 

Die Tastatur wird abgefragt und das eingegebene Zeichen ge- 
prüft. Gültige Zeichen werden in den Baudot-Code umgewandelt 
und über den Kanal #1 ausgesendet. Gultige Befehle werden 
ausgeführt. 
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Befehle konnen sein: - Umschalten auf Empfang 
- Umschalten in Bu-Modus 
- Umschalten in Zi-Modus 
- Aussenden der Fix-Texte 


Das Aussenden der Fix-Texte geschieht in der Subroutine ab 
Zeile 550. 


Zeilen 640 - 730: 

enthalten die Umwandlungstabelle ASCII --> Baudot und umge- 
kehrt in DATA-Zeilen, 

Auf die Umwandlung von ASCII --> Baudot und umgekehrt soll 
noch etwas näher eingegangen werden. Nehmen wir deshalb an: 


AS = "A" (Zeile 370) 


Der ASCII-Code fur "A" ist #65. In Zeile 460 wird gepruft, ob 
der ASCII-Code grußer #91 ist, was ein im Baudot-Code nicht 
darstellbares Zeichen ware. In Zeile 500 wird das A auf dem 
Bildschirm ausgegeben. In Zeile 530 wird B$(65) in den Kanal 
#2 geschrieben. B$(65) oder BS(ASC(A$))enthalt den Baudot- 
Code fur "A", 

In gleicher Reihenfolge geschieht die Umwandlung Baudot-Code 
--> ASCII-Code ab Zeile 240. 


1.5 FERNSCHREIBER ALS DRUCKER 


Die Idee, einen gebrauchten von Firmen oder Behorden ausgemuster- 
ten Fernschreiber anstelle eines teuren Druckers an den VC-20 an- 
zuschließen, ist nicht neu. Wenn man von einigen Einschrankungen 
wie z.B. dem begrenzten Zeichenvorrat des Fernschreibers absieht, 
so sind diese Maschinen fur unsere Zwecke gut geeignet. Software 
zum Betrieb eines Fernschreibers am VC-20 gibt es schon sehr 
viel, aber alle Programme haben einen entscheidenden Nachteil, 
sie sind namlich sehr umständlich zu bedienen. 


Das in diesem Kapitel vorgestellte PGM bietet Ihnen den gleichen 
Bedienungskomfort, wie ihn die Besitzer eines Druckers kennen. 
Zur Ausgabe des Baudot-Codes auf den Fernschreiber benutzt das 
PGM die im VC-20 implementierte V.24-(RS232-)Schnittstelle. Die 
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OPEN-Anweisung ist in dem M-PGM eingebaut und zum besseren Ver- 
standnis des M-PGM-Teils 1 sei hier der Hinweis auf die im Pro- 
grammier-Handbuch beschriebenen Betriebssystemroutinen erlaubt. 
Ab Seite 138 werden die verwendeten Routinen ausführlich be- 
schrieben, 


Die in Bild 1.5.1 gezeigte Schaltung fur ein Interface zum An- 
schluß eines Fernschreibers an den VC-20 ist erprobt und schon 
mehrfach im Einsatz. Die Abgleicharbeiten beschränken sich auf 
die Einstellung des Linienstromes von 40 mA. Wenn Sie andere als 
die beschriebenen Bauteile verwenden, kann es passieren, daß Sie 
den Linienstrom von 40 mA nicht erreichen. Das kann zu Fehl- 
schriften führen. Abhilfe schafft dann die Erhöhung der Spannung 
von 12 V auf 24 V, 


R1 R2 


CB2 


GND 





vr | 
User-Port | Interface | Fernschreiber 


RI = 1KN 

R2 = 100 N (Trimmpoti) 
IC1 = IL (Optokoppler) 
TI = BF459 


Bild 1.9.1 
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BEDIENUNGSHINWEISE 


Alle in dieser Bedienungsanleitung beschriebenen Anweisungen kon- 
nen im Direkt-Modus sowie in Basic-Programmen verwendet werden, 
Die OPEN-Anweisung muß allerdings immer in der 1. Zeile eines B- 
PGMs stehen. 


SYS (Startadresse) Diese Anweisung ist anstelle der OPEN-Anwei- 
sung zu verwenden. Ein File mit der Nummer #4 
wird eroffnet, Die Startadresse wird nach 
Start des Basic-Loaders angezeigt. 


PRINT #4,X Gibt den Inhalt der Variablen X auf den Fern- 
schreiber aus, 


PRINT #4, AS Gibt den Inhalt der String-Variablen A$S auf 
den Fernschreiber aus. 

PRINT #4,"TEST" Gibt eine Zeichenkette auf den Fernschreiber 
aus, 


Komma und Semikolon haben bei den beschriebenen Anweisungen die 
gewohnten Tabulatorfunktionen. 


CMD 4 UÜbertragt die Datenausgabe, die normalerweise 
auf dem Bildschirm erfolgen wurde, auf den 
Fernschreiber (z.B. LIST). 
PRINT #4 uberträgt die Datenausgabe wieder 
auf den Bildschirm, 
PRINT #4,"CLOSE4" ubertragt die Datenausgabe 
wieder auf den Bildschirm und schließt 
gleichzeitig das File #4, 


CLOSE 4 Schließt das File #4 und beendet die Daten- 
ausgabe auf den Fernschreiber. 


Bevor Sie die CLOSE-Anweisung verwenden, sollten Sie sicherstel- 
len, daß keine Zeichen mehr im Ausgabepuffer der V.24-Schnitt- 
stelle stehen. Im Direkt-Modus ist es einfach. Sie brauchen nur 
zu warten, bis der Fernschreiber nicht mehr druckt. In B-PGMen 
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konnen Sie folgende Zeile verwenden, um festzustellen, ob der 
Ausgabepuffer leer ist. Diese Zeile ist immer vor der CLOSE-An- 
weisung einzugeben. 


100 IF ST=0 AND (PEEK(37150) AND 64) THEN 100 
110 CLOSE 4 


Die im Programmier-Handbuch auf Seite 134 abgedruckte Basic-Zeile 
zur Prüfung des Ausgabepuffers ist falsch. 


PROGRAMM-EINZELHEITEN 


1.) Name: TTY 
2.) Ausbaustufe: beliebig 
3.) Art des PGMs: Betriebssystem-Zusatzroutine 


4.) Anzahl der Bytes 
des Basic-Loaders: 1157 
des M-PGMs: 176 


5.) Benutzte Adressen: 


$00 Zwischenspeicher fur Akku (ASCII-Code) 
501 Zwischenspeicher fur X-Register 
02 Flag auf Bu/Zi-Modus 
503 Zwischenspeicher fur Akku (Baudot-Code) 
6.) Listings 
des Basic-Loaders: siehe Bild 1.5.2 
des M-PGMs: siehe Bild 1.5.3 


N 
w 


Erläuterungen zum M-PGM: 


Teil 1: Zeilen 2002 - 2021 

Dieser PGM-Teil eröffnet die V.24-Schnittstelle und weist 
dieser die Filenummer #4 zu. Die Baudrate wird auf 50 Bd ein- 
gestellt und die Breite des auszugebenden Zeichens wird auf 5 
Bit festgelegt. Der Vektor "Ausgabe eines Zeichens" wird ge- 
ändert und zeigt jetzt auf Teil 2 des M-PGMs. 
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a FOKRESS. FEEKSED-1 

1 A=FEER(IEI#256 :E=A+175:5=A+Z 

= FRINT" IM M-FGM MUSS AM AHFANG 

4 FRINT"M EINER PAGE AEGELEGT 

& PRINT"M WERDEN. 

1E PRINT"M FOLGENDE DATA-ZEILEHN 

12 FRINT"M SIND JE NACH AUSBALU 

14 PEINT"M ABZURENDERHN: 

15 PRINT 

12 FORI= A TO E :READDG: IFDCCZSETHEHNZO 

13 DGE=SFEEKCIEN: PRINT" ZEILE"FEEKESD+HFEERNE4E2IE 
24 FÜKEI.DE:HE#T 

21 FEINT:FRINHT"STARTADRESSE=S"S 

22 DATAP?.5.169:4 

24 DATAIEZ.2, 168.1 

2& DATA32: 186.255 

IATAIEF.2.162.0. 160 

DATRAIARG : nr FAGE 777 

Du ae 108. 5:.32,132 

DATA=ZS3: 169; 
DATA141, 2 
DATALBDR REIN 4a PRIGE 777 
DATA141.33.3 

4a DATA3E,133:0, - 

42 DATA1S4. 201; 
44 DATAS, 165:0. 

45 DATA122. 242,165 
43 DATAg, 261.13 zu 
56 DATA1S; Zn 
DATAISE. . 





CL La LA 
ON PUMGEN 












53 1: 
[215] DATAD, 41, 63.17 
e2 DATALSF. 112 


2 FAGE 777 

54 

BE 

et} 

ra 

v4 

76 DATAS3, 22,18 

r& DATA1E3.0 

54 DATA9E ‚ 

=2 DATA, 3,25.14.9 

=4 DATAL.13.26, 20 

86 DATAS,11.15. 18 

55 DATAZS, 12. 24; 22 

En) an 2 15 

=2 DATA? 39,19.23 

94 DATAZ1: 17: ER 

36 DATAG,G.4.0,37 

32 DATA45.8.0,.0,37 

122 TIATA47 30, 24 

182 DATA44.35:60.61 

124 DATAS4.55.91.32 

196 DATA42,48,53,39 

185 DATA3S.56. 45,0 

11a DATAB,62,0,.57 
Bild 1.5.2 
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Teil 2: Zeilen 2022 - 202C 

In diesem PGM-Teil wird gepruft, ob die Ausgabe des Zeichens 
uber die V.24-Schnittstelle erfolgen soll (die Adresse S$9A 
enthalt die momentane Geratenummer), Wenn ja, dann erfolgt 
der Sprung in Teil 3 des PGMs, andernfalls erfolgt der Sprung 
in die Betriebssystemroutine "Ausgabe eines Zeichens" (JMP 
SF27A). 


Teil 3: Zeilen 202F - 206F 

Dieser Teil des PGMs ist die eigentliche Routine zur Ausgabe 
eines Zeichens auf den Fernschreiber. Hier wird der ASCII-Co- 
de in den Baudot-Code umgewandelt und das auszugebende Zei- 
chen in den Ausgabepuffer der V.24-Schnittstelle geschrieben, 
An Adresse $2031 wird gepruft, ob es sich bei dem auszugeben- 
den Zeichen um ein CR (Carrige-Return = Wagenrüucklauf) han- 
delt. Wenn ja, dann wird der Baudot-Code für WR (Wagenrück- 
lauf) und ZL (Zeilenvorschub) in den Ausgabepuffer geschrie- 
ben (JSR $F2BA), 

Die Routine ab Adresse $F2BA ist eine Betriebssystem-Routine 
des VC-20 und wird im Anhang A.4 eingehend bescnrichen, 

Nach Ruckkehr aus dieser Routine erfolgt der Rucksprung in 
das Basic-PGM bzw. in die "Eingabe-Warteschleife". Die beiden 
NOP’s hinter RTS sind Platzhalter, denn anstelle des RTS kann 
auch der Befehl JMP $E742 eingefugt werden. JMP $E742 ist ein 
Sprung in die Betriebssystem-Routine "Ausgeben eines Zeichens 
auf den Bildschirm" und bewirkt, daß die Zeichen, die auf dem 
Fernschreiber abgedruckt werden, auch auf dem Bildschirm dar- 
gestellt werden. 

Wenn es sich bei dem auszugebenden Zeichen nicht um ein CR 
handelt, dann wird ab Adresse $2044 mit der Umwandlung in den 
Baudot-Code angefangen. Das X-Register wird nach Adresse $01 
gerettet. Der Akku wird mit $3F logisch UND-verknupft und da- 
mit das auszugebende Zeichen auf Buchstaben, Ziffern und 
Satzzeichen begrenzt (vgl. Tabelle der Bildschirm-Codes im 
VC-20-Handbuch, Seite 141), An Adresse $204B wird der Baudot- 
Code fur das auszugebende Zeichen aus der Tabelle ab Adresse 
52070 gelesen und an Adresse $03 zwischengespeichert. Da der 
Baudot-Code nur 5 Bit breit ist, konnen die verbleibenden 3 
Bit anderweitig benutzt werden. In unserem Fall ist das 6. 
Bit ein Flag für den Bu/Zi-Modus. Wenn das 6. Bit O0 ist, dann 
handelt es sich um einen Buchstaben; wenn es 1 ist, dann han- 
delt es sich um ein Satzzeichen. 
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zeige LI 

zaaa JSR £FFRHA 
zZuRB LIR #Ed2 
zaaD LO HECK 
zauF LU HESF Teil i 
zul JSrR EFFEO 

zal4 JSR FFFÜO 

zul? LOR #EZZ 

2213 STA EENZE 

ZALG 


Forts. 
Teil 3 
A Fauör 

#£LE 

zzeos 1 

#HELF 

! £FZEA 

Eape 

ı EF2gH 

za 



















Le EL 
riS 
HOF 
2028 SZ20R@F NOP 
2ER son 





+F&7H 


2a 





' #Ein 








 Flad ua aa I Be 
#EdE Sa a ra Le kim 

' EF&EA ab Gr le Ju Ki 
Hz 15 Ic 17 Br do 

Sr FRA Teil 3 1a a7 IE 13 AU 
Fad 15 11 ga ic a 


za a ag a a5 Teil 4 


2a? 27 &8 
Ar, ae 


Bild 1.5.3 


An Adresse 5$2050 wird der Inhalt des Akku mit $20 logisch 
UND-verknüpft und mit dem Inhalt der Adresse $02, die eben- 
falls das Flag für den Bu/Zi-Modus enthält, verglichen. Wenn 
die Flags ungleich sind, so wird das neue Flag in Adresse $02 
geschrieben und der Baudot-Code für Bu, bzw. Zi in den Ausga- 
bepuffer geschrieben (JSR $F2BA). 

An Adresse $2064 wird der zwischengespeicherte Baudot-Code in 
den Akku geladen und in den Ausgabepuffer geschrieben (JSR 
$F2BA). Ab Adresse 52069 werden Akku und X-Register mit den 
geretteten Daten geladen und es erfolgt der Rücksprung in das 
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B-PGM, bzw. in die Eingabe-Warteschleife. Die beiden NOP’s 
sind wiederum Platzhalter für den Befehl JMP S$E742. falls Sie 
die Zeichen auch auf dem Bildschirm darstellen wollen, 


Teil 4: Zeilen 2070 - 20AC 

Dieser PGM-Teil enthalt die Tabelle zur Umwandlung des ASCII- 
Codes in den Baudot-Code Fur Zeichen im ASCII-Code, die im 
Baudot-Code nicht darstellbar sind, enthalt die Tabelle je- 
weils eine (0, 


1.6 BILDSCHIRMINHALT DRUCKEN: SCREEN COPY 


SCREEN COPY ist ein Hilfs-PGM, das es erlaubt, selbsterstellte 
Bildschirmgrafiken auf einen angeschlossenen Drucker (hier VC- 
1525 bzw. GP100-VC) zu kopieren. Bedingt durch die vom Drucker 
darstellbare Zeichengroße von nur 7x6 Punkten, ist bei der PGM- 
Erstellung etwas "geschludert" worden: die 8. Reihe des 8x8 Punk- 
te großen Zeichens auf dem Bildschirm wird einfach vernachlassigt 
und nicht auf dem Drucker dargestellt. Texte wirken dadurch etwas 
gedruckt, den ausgedruckten Graphiken aber sieht man die fehlende 
8. Reihe nicht an (siehe Beispiele in Bild 1.6.1). 


BEDIENUNGSHINWEISE 


Das PGM muß an vorhandene PGMe angehangt werden. Nachdem die Gra- 
fik erstellt ist (z.B. mit dem Graphik-Modul VC 1211), wird es 
mit GOTO 60000 gestartet. Das PGM errechnet sich dann alle beno- 
tigten Werte, wie z.B. die Bildschirmgroße und die Lage des Bild- 
schirmspeichers selbst, lediglich fur die Kopie einer Bildschirm- 
graphik, die aus 8x16 Punkten je Zeichen besteht, müssen die fol- 
genden vier Zeilen geandert bzw. in das PGM eingefugt. werden, 


60080 A=PEEK(I)*2 

60100 SZ=SZ+1:IF SZ=5 THEN PRINT#4,AS:AS="": 
PRINT#4,B$:B$’"":52Z=0 

60171 IF PEEK(K+8) AND X THEN Z2=22Z+Y 

60201 BS=B$+CHR$(ZZ OR 128) :727=0 
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BEER - 
= | HI) 
I; “ PAGE || URAN 
an u 
A 0 Kl eh, — 


Bild 1.6.1 
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1.6 SCREEN COPY 


PROGRAMN-EINZELHEITEN 


1.) Name: SCREEN COPY 
2.) Ausbaustufe: beliebig 
3.) Art des PGMs: Hilfsprogramm 


4.) Anzahl der 


Bytes: 409 


5.) Benutzte Variablen: 


5 
Z 


Anzahl der senkrechten Spalten 
G Startadresse des Zeichengenerators 
(ROM/RAM) 


BA Anfangsadresse des Video-Speichers 
BE Endadresse des Video-Speichers 


I 
A 


soRaR 
68918 
5a020 
60939 
68948 
69858 
60068 
600978 
sRABBE 
60498 
&a1a0 


I;K Laufvariablen 
Bildschirm-Code des umzuwandelnden Zei- 
chens 


REM SCREEN COPY EINFACHE ZEICHENHDEHE 
OPEN4 . 4: PRINT#4, CHR$ (8) 

5=PEEK (36866) AND127 

IF NOT PEEK(C36869) AND 8 THEN 26=32768 
26=2ZG+(PEEK(36869> AND 7541924 
BA=PEEK.(643)%#256 
BE=BA+<PEEK (36867 >AND126972%5 

FORI=BA TO BE 

A=PEEK«@I> 

GOSLUBEQ1 30 

S2=52+1: IFSZ=STHENPRINT#4,A$:A$="":5Z=8 


&8118 NEXT 


60128 


69138 X 


68148 


CLOSE4 : END 


=123 


FORJ=1T08 
= 


68150 Y=i 


68168 
60178 
60188 
68198 
60209 
69218 
69229 
68238 


FORK=ZG+AKSTOZG+ARB+7 
IFPEEK<K>AND X THEN Z=e2+Y 
Yrkz 

NEXT 

A$=A$+CHR$CZ OR 128) :Z=8 
NeX/2 

NEXT 

RETURN 


Bild 1.6.2 
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SZ Spaltenzähler 

AS Bildschirmzeile im Drucker-Graphik-Code 
X Zeiger auf eine Spalte 

% Wert eines Bits 

Z Drucker-Graphik-Code fur eine Spalte des 


umzuwandelnden Zeichens 


6.) Listings der PGMe zum Ausdruck 
von 8x8-Bit-Zeichen: Bild 1.6. 
.6. 


2 
von 8x16-Bit-Zeichen: Bild 1 3 


4 REM SCREEN COFr DIFFELTE ZEIEHEHHDEHE 
4 SFEHS4 SS FRIHTH4.CHREESO 

a 5=FEERN: "Alt: 

IF HUT FE 
4 Zi=Z6G+KFEE 
FEEHLE 












"» AND 5 THEH ZG=38rEE 
"AHD Fol 







THEN 74% 
x THEN ZZeZZ+r 





Bild 1.6.3 


7.) Erläuterungen zum Programm: 


Zeile 60010: 
Drucker-Kanal offnen und Graphik-Modus einschalten 
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Zeile 60020: 
Variable S enthält die Anzahl der Bildschirmspalten (Kon- 
trollregister 2 des Video-Chips (6561) 


Zeile 60030: 
Bit 3 des Kontrollregister 5 des Video-Chips gibt an, ob die 
Anfangsadresse des Zeichengenerator-Speichers im ROM- oder 
RAM-Bereich liegt. 

ZG enthalt 32768 wenn ROM 

ZG enthalt 0 wenn RAM 


Zeile 60040: 
Die Bits 0-2 des Kontrollregisters 5 enthalten den Zeiger auf 
die Anfangsadresse des Zeichengenerator-ROM/RAM-Bereichs, 


Zeile 60050: 
Die Adresse #648 enthalt das H-Byte der Anfangsadresse des 
Video-Speichers. Die Anfangsadresse wird in die Variable BA 
geschrieben, 


Zeile 60060: 

Die Endadresse BE des Video-Speichers errechnet sich aus der 
Anfangsadresse BA, der Anzahl der Spalten S und der Anzahl 
der Reihen, die aus dem Inhalt der Bits 1-6 des Kontrollregi- 
sters 3 des Video-Chips errechnet werden. 


Zeilen 60070 - 60090: 

Der Inhalt des Video-Speichers wird Byte fur Byte der Variab- 
len A zugewiesen und in dem Unterprogramm ab Zeile 60130 in 
einen Graphik-Code zur Ausgabe auf den Drucker umgewandelt, 


Zeile 60100; 

Nach Ruckkehr aus dem Unterprogramm wird die Variable SZ 
(Spaltenzahler) um 1 erhoht und mit der Anzahl der vorhande- 
nen Spalten (S) verglichen. Wenn die Bedingung erfullt ist 
(SZ=5), dann wird eine koplette Bildschirmzeile im Graphik- 
Code auf den Drucker ausgegeben und der Spaltenzähler zurück- 
gestellt. 


Zeile 60110: Nachstes Zeichen 


Zeile 60120: Kanal schließen und PGM beenden 
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Zeile 60130: 
Variable X enthalt den Zeiger auf die zu prüufenden Spalten 
eines Zeichens, 


Zeile 60140: 
Die Schleife wird &mal durchlaufen, um alle 8 Spalten eines 
Zeichens auszuwerten. 


Zeile 60150: 
Variable Y enthalt den Wert des zu prufenden Bits 


Zeilen 60160 - 60180: 

Die 8x8-Bit-Matrix eines Zeichens wird Bit für Bit geprüft 
und in den Drucker-Graphik-Code umgewandelt. Variable Z ent- 
halt die Summe der Wertigkeiten von gesetzten Bits in einer 
Spalte der 8x8-Bit-Matrix. 


Zeile 60190: Nachstes Bit 

Zeile 60200: 

Der Drucker-Graphik-Code wird in die Variable A$ geschrieben. 
Dieser Graphik-Code muß mit 128 (Bit 7) logisch ODER-ver- 
knupft werden, damit das Zeichen nicht als Befehl (CHR$S(U3) = 
CR) erkannt und ausgewertet wird. 

Zeile 60210: Zeiger auf die nachste zu prufende Spalte setzen 
Zeile 60220: Nachste Spalte 


Zeile 60230: Rucksprung aus dem Unterprogramm 


1.7 ÄNDERUNG DER FLOPPY-NUMMER 


Beim VC-20 sind bis zu 8 Floppy’s 1540 bzw. 1541 anschließbar. 
Sollen alle diese per Programm oder auch im Direkt-Modus ange- 
sprochen werden konnen, so ist die gewohnte Benutzung der Gerate- 


nummer 8 nicht mehr ausreichend. 


Das Programm (s. Listing in Bild 1.71) verschafft Ihnen die Möog- 
lichkeit, Ihren angeschlossenen Floppy’s unterschiedliche Geräate- 
nummern (Device Numbers) zwischen 8 und 15 zuzuweisen. Auf de- 
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taillierte Erläuterungen zum Programmablauf werde hier verzich- 
tet, weil es sich von selbst erklart. 


PRINT m — nn 


PRIHT" | Ir 
FEIHT"I CHANGE 1545-1541 1"; 
FRIHT" | 1"; 
PRIHT"I I05 2.68 297702 1": 
FREIHT" | 1"; 
FEINT" | DEWIGCE HUMMERH WOHNT: 

PREIHT" | 1% 
PRIHT" | 5 BIS 15 ie: 
FREIHT" | "2 
FRIHT"I HACH AUSSCHALTEN 1"; 
PRINT" | 1% 
PRINT" DER FLOPPY- DEVICE 1"; 
FEIHT" | et 
FREIMT"| HUMMER WIEDER & 5 


PRINT ——— tt; 


MI TO RI BI me m me ae I DIDI Pe ee 
BB CR TE u 5 ı DS En ar BR SEE Er NEE un u u En 


a IHFUT"ALTE DEWIGE-HUMMER" ; Do 

a IFDOES OR DI>15 THENIEA 

A FRIHT 

4 IHPUT"HELE TEYTIGE-HUMMER'" DH 

a IFINZS OR DM>15 THEN1SG 

3 OPEH15,DQ.15:REM KOMMANDO KAHAL 

3 FRINT#15. "M-M"CHREELLSOCHREESEDCHRFCZICHREEDH+3ZPCHREFUDN+S4) 
3 ELOSELS 
= EHD 

Bild 1.7.1 


Jedoch sollte noch erwahnt werden, wie bei der Geratenummernfest- 
legung selbst die einzelnen Floppy’s unterschieden werden konnen. 
Dazu nutzen wir die Tatsache aus, daß rein hardwaremaßig nach 
Einschalten der Floppy dieser die Geratenummer 8 zugewiesen ist. 
Zuerst wird nur eine der angeschlossenen Floppy’s eingeschaltet, 
Danach wird ihr mittels dem hier vorgestellten Programm eine Num- 
mer ungleich 8 zugeteilt. Schaltet man nun die nachste Floppy 
ein, so sind beide Floppy’s eindeutig adreßierbar, weil ja die 
neu hinzugekommene die Standard-Geratenummer 8 aufweist. Diese 
muß gleichfalls mittels Programm umgeändert werden, will man eine 
weitere Floppy zuschalten, etc., etc. 
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1.8 OLD FÜR DISKETTE = REGENERIEREN 


Wie der Basic-Befehl NEW, so loscht auch der Disketten-Befehl 
SCRATCH nicht das PGM, sondern zerstort nur den Vektor auf das 
PGM. Diese "Zerstorung” geschieht durch das Loschen des File- 
Kennzeichens in dem Directory, wodurch die in der BAM als belegt 
gekennzeichneteten Blocke nicht mehr geschützt sind und freigege- 
ben werden. Der File-Name selbst und der Inhalt der Blocke werden 
nicht zerstort. 


Das in diesem Kapitel beschriebene PGM macht nichts anderes, als 
die Blocke, in denen das PGM steht, wieder als belegt zu kenn- 
zeichnen und mit dem File-Namen zu verknüpfen. 


Im Anschluß an die Programm-Einzelheiten befindet sich daruber- 
hinaus die auf die VC-20-Floppy bezogenen Fehlernummern. 


BEDIENUNGSHINWEISE 


Wenn Sie merken, daß unbeabsichtigt ein PGM auf der Diskette ge- 
loscht wurde, z.B. durch SCRATCH zusammen mit dem Joker (), dann 
laden Sie einfach das PGM "Regenerieren” und starten es. Das PGM 
fordert Sie auf, den Namen des geloschten PGMs einzugeben. Dieser 
darf max. 16 Zeichen lang sein und den Joker durfen Sie hierbei 
nicht verwenden, Anschließend wird das Directory nach dem Namen 
durchsucht und eine Fehlermeldung ausgegeben, wenn der Name nicht 
gefunden wurde, oder das PGM nicht mehr zu regenerieren ist, weil 
Sie zwischenzeitlich schon ein anderes PGM auf dieser Diskette 
geSAVEd haben. Nach erfolgreicher Regenerierung steht der PGM-Na- 
me in dem Directory und Sie konnen das PGM wieder laden. 


PROGRAMM-EINZELHEITEN 


1.) Name: REGENERIEREN 

2.) Anısbaustufe: beliebig 

3.) Art des PGMs: Betriebssystem-Zusatzprogramm 
4.) Anzahl der Bytes: 1084 
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5.) Benutzte Variablen: 


NBS Name des gelöschten PGMs 

NDS PGM-Namen, die im Directory stehen 

BS ubergabe-Variable: Block lesen 

T! Spur (Track) der Directory 

5 Sektor der Directory 

B(0...255) enhalt alle Bytes eines Blocks 

I Laufvariable 

TD Spur des nachsten Blocks, in dem das PGM 
gespeichert ist 

SD Sektor des nächsten Blocks, in dem das 
PGM gespeichert ist 

EN Fehler-Nummer 

ENS Fehler-Name 

ET Fehler-Spur 

ES Fehler-Sektor 

6.) Listing: siehe Bild 1.8.1 


7.) Erlauterungen zum Programm: 


Zeilen 10 - 60: 

Der Name des geloschten PGMs wird in die Variable NBS ge- 
schrieben und auf seine Große gepruft (der Eintrag des File- 
Namen in das Directory ist max. 16 Zeichen). 


Zeile 70: 

Die Variablen T (TRACK) und S (SECTOR) bekommen die Adresse 
des 1. Blocks des Directory zugewiesen, Variable B wird di- 
mensioniert., 


Zeile 80; 
Der Befehls- und Fehlerkanal wird eroffnet., 


Zeile 90: 
Der Fehlerkanal wird ausgelesen. Bei einer Fehlermeldung wird 
das PGM mit dem Ausdruck der Fehlermeldung beendet. 


Zeile 100: 
Die Datenkanäle (#2 und #3) werden eröffnet. 
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Zeile 110: 
Der File-Name (NB$S) wird auf 16 Zeichen erganzt. 


Zeile 120: 
über den Befehlskanal wird der "B-R:"-Befehl zum Lesen des 
1. Blocks des Directory gegeben. 


ü REM REGEHERTEREN 
1a PRINT" 

2a PRINT" HAME 
35 PRINT" PROGRAM 
+ ERINT 


a GELÜESEHTEH" 









"HR IHT" HAME IST ZU LAHSOSOTTEE 


OPEN1S.8.15 ar 
INPUT#I NEN, Er: 








TFEN>OTHENGOTOALE 
BNSORKR 

5," B-P:"2, 1:GETBE, BE IFES=" "THENBESCHREO) 
e SHIF+HCHREUBN 4.0 HEN 


Sep GOTEN 2 






>ATHEHT=EE N 





15. "UL T55 
B-P "3; 1+1:GET#2. B$ IFE$=" "THENBESÖHR ECG 





‚T+2:5ET4#3. BE TFE$=" "THEHBFSCHRSFG 






PRINT 15, } 
IHFLTHILSS EM. 
FRIHT#IS. "UL: 
FRIHT#LS."B- Pina 
TI=Hsc B&> 
ERINTHLS, "B- Fe" 1:GET#E. BE TFbte"" THENEF=ÜHRECOR 


: IFEH: -ETHENGETÜZERE 
„BEE: IFEE£="" THENBE=SEHRRCRG 













PRINT#LS."B-P: £ Fi 
FEIHTHLS. "LE: “>, a; -T33:G0T 
FEIHTHLSS "WEN" 
FRIHT"IST HICHT MEHR ZU FR 
FEIHT"HICHT GEFUHLEN" 50 
FREIHT"IST REGENERIERT" 
ı FREIHT"WUURLE nn ‚SELC 
il FRIHTEHREN LO 
42m AUOSELS 














Bild 1.8.1 
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Zeilen 130 - 140: 

Der 1. Block des Directory wird uber Kanal #2 gelesen und die 
einzelnen Bytes den Variablen B(0) bis B(255) zugewiesen. 
B(0) und B(1) enthalten den Vektor auf den nachsten Block des 
Directory. 


Zeile 150: 
Die Variablen B(0...255) werden nach dem File-Namen durch- 
sucht. 


Zeile 160: 
Wenn der File-Name gefunden wird und als "nicht geloscht" ge- 
kennzeichnet ist, dann wird das PGM beendet. 


Zeile 170: 

Wenn der File-Name gefunden wird und als "geloscht" gekern- 
zeichnet ist, dann wird mit der Regenerierung ab Zeile 210 
begonnen. 


Zeile 180: 
Den nachsten File-Namen vergleichen 


Zeile 190: 

Wenn der File-Name im 1. Block des Directory nicht gefunden 
wurde, dann wird eine gultige Adresse des nachsten Blocks in 
die Variablen T und 5 übernommen (eine Adresse ist qgultig, 
wenn die Nummer der Spur großer 0 ist). Ab Zeile 120 wird der 
nächste Block nach dem File-Namen durchsucht. 


Zeile 200: 
Bei einer ungultigen Blockadresse wird das PGM beendet, 


Zeile 210: 

Die Variable I enthalt den Vektor auf die 1. Blockadresse des 
geloschten PGMs. Diese Adresse soll uber Kanal #3 ausgelesen 
werden, 


Zeilen 220 - 250; 


Die Adresse des 1. PGM-Blocks wird gelesen und den Variablen 
TD und SD zugewiesen. 
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Zeile 260: 
Der gefundene Block wird in der BAM wieder als belegt gekenn- 
zeichnet, aber noch nicht mit einem File-Namen verknüpft. 


Zeile 270: 

Der Fehlerkanal wird ausgelesen. Wenn ein Fehler vorliegt, 
wird das PGM beendet (Zeile 360). Eine Fehlermeldung wird 
2.B. dann ausgegeben, wenn der Block schon als belegt gekenn- 
zeichnet war. Das kann dann der Fall sein, wenn nach dem Lo- 
schen des PGMs ein anderes PGM geSAVEd wurde, 


Zeilen 280 - 330: 

Der Vektor auf den nachsten Block des PGMs wird gelesen und 
ab Zeile 260 in die BAM geschrieben. Eine ungultige Block- 
adresse ist hierbei der Zeiger auf das Ende des PGMs. 


Zeilen 340 - 350: 
Die in der BAM als belegt gekennzeichneten Blocke werden 
jetzt mit einem File-Namen verknupft und das PGM beendet. 


Zeile 360: 
Der VALIDATE-Befehl wird ausgefuhrt. 


Zeilen 370 - 400: 
Bei PGM-Ende wird eine Aussage uber den Verlauf der Regene- 
rierung gemacht. 


Zeile 410: 
Druckt den Inhalt des Fehlerkanals 


Zeile 420: 
Schließt alle Kanale 


LISTE DER FEHLERNUMMERN UND BESCHREIBUNGEN 


0% 


20: 


Kein Fehler 
Ruckmeldung für Fileloschung (keine Fehlermeldung) 


READ ERROR 
Header des gesuchten Datenblocks wird nicht gefunden 


47 


I 


21: 


22:3 


24: 


25 


27% 


28 : 


OLD für Diskette 


READ ERROR 

SYNC-Markierung wird nicht gefunden. Gründe dafür können 
schlechte Justierung des Schreib/Lesekopfes, nicht forma- 
tierte Disketten oder schlechter Sitz der Diskette sein, 
Kann auch Hardware-Defekt anzeigen, 


READ ERROR 

Dieser Fehler tritt im Zusammenhang mit den BLOCK-Befehlen 
auf und zeigt an, daß ein Block gelesen oder geprüft (veri- 
fied) werden sollte, der nicht ordnungsgemaß geschrieben 
wurde. 


READ ERROR 

Die Daten, die in den DOS-Speicher geschrieben wurden, ent- 
halten einen Prufsummenfehler, d.h. ein Datenbyte oder meh- 
rere sind fehlerhaft. Dieser Fehler kann auch Erdungsprob- 
leme anzeigen. 


READ ERROR 

Die Daten oder der Header wurden in den DOS-Speicher einge- 
lesen, aber i:!n den Datenbytes existieren fehlerhafte Bit- 
muster. Dieser Fehler kann auch Erdungsprobleme anzeigen. 


WRITE ERROR 
Fehlende ubereinstimmung zwischen den Daten im DOS-Memory 
und den Daten auf der Diskette, 


WRITE PROTECT ON 
Es wird versucht, auf eine Diskette zu schreiben, die mit 
einem Schreibschutz versehen ist. 


READ ERROR 

Es liegt ein Fehler im Header des zu lesenden Datenblocks 
vor (Prufsumme stimmt nicht). Dieser Fehler kann auch Er- 
dungsprobleme anzeigen. 


WRITE ERROR 

Nach dem Schreiben eines Datenblocks sucht der Controller 
die SYNC-Zeichenfolge des nachsten Datenblocks. Wenn er 
diese Synchronisationsmarkierung nicht innerhalb eines be- 
stimmten Zeitraums findet, wird diese Fehlermeldung ausge- 
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29% 


30 : 


31: 


32: 


33% 


34: 


39: 


50: 


S 8 


32; 


1.8 OLD für Diskette 


geben. Grund dafür kann z.B. ein zu langer Datenblock oder 
ein Hardwarefehler sein. 


DISK ID MISMATCH 

Die im DOS-Speicher vorhandene ID stimmt nicht mit der ID 
auf der Diskette überein. Die Diskette wurde nicht initia- 
lisiert, oder der Header ist fehlerhaft. 


SYNTAX ERROR 
Das DOS kann den uber den Befehlskanal geschickten Befehl 
nicht interpretieren. 


SYNTAX ERROR 
Befehl wird nicht erkannt 


SYNTAX ERROR 
Befehl ist langer als 58 Zeichen 


SYNTAX ERROR 
Falsche Verwendung des "Jokers" im OPEN- oder SAVE-Befehl 


SYNTAX ERROR 
Filename fehlt oder kann vom DOS nicht erkannt werden. Ty- 
pischer Fehler: ein Doppelpunkt (:) £ehlt. 


SYNTAX ERROR 
Befehl wird nicht erkannt 


RECORD NOT PRESENT 

Die Fehlermeldung wird ausgegeben, wenn versucht wird, nach 
den letzten aufgezeichneten Daten mit INPUT# oder GET# wei- 
terzulesen, 


OVERFLOW IN RECORD 
Die Anzahl der Zeichen (inkl. CR) ist großer als die vorge- 
gebene Recordlänge 


FILE TOO LARGE 


Recordnummer (in einem relativen File) ist zu groß; das 
Fassungsvermögen der Diskette wird überschritten. 
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60: 


61 


63; 


64 : 


65 : 


66 : 


67: 


20,3 


Il: % 


OLD für Diskette 


WRITE FILE OPEN 
Ein Schreibfile, das nicht geschlossen wurde, soll geöffnet 
werden. 


FILE NOT OPEN 
Es soll ein File angesprochen werden, das nicht geoffnet 
wurde, 


FILE NOT FOUND 
File existiert nicht. 


FILE EXISTS 
Ein File soll einen Namen erhalten, der bereits auf der 
Diskette existiert, 


FILE TYPE MISMATCH 
File-Typ stimmt nicht mit dem Directory-Eintrag überein. 


NO BLOCK 

Diese Fehlermeldung steht im Zusammenhang mit dem B-A-Be- 
fehl. Der Block, der als belegt gekennzeichnet werden soll, 
ist bereits belegt. Die Parameter, die ausgegeben werden, 
geben Spur und Sektor des nächsten frei verfugbaren Blocks 
an. Werden zwei Nullen ausgegeben, so sind alle Blocks mit 
hoheren Nummern belegt. 


ILLEGAL TRACK AND SECTOR 
Das DOS findet nicht den Vektor zum nachsten Block. 


ILLEGAL T OR S 
Ungultige Spur- oder Sektornummer. 


NO CHANNEL AVAILABLE 

Ein direkt angespochener Kanal ist bereits belegt oder 
(falls kein bestimmter Kanal angesprochen wurde) kein Kanal 
mehr ist frei. 


DIR ERROR 

Die BAM kann nicht gelesen werden, was eventuell seinen 
Grund darin haben kann, daß sie im DOS-Speicher überschrie- 
ben wurde. Ein Reinitialisieren der Diskette kann diesen 
Fehler in manchen Fallen beheben. 
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72 : DISK FULL 
Alle 664 Blocks der Diskette sind belegt, oder die Directo- 
ry hat die maximale Anzahl von 144 Eintragen. 


73 : CBM DOS V2.6 V170 
Diese Meldung erscheint direkt nach dem Einschalten bzw. 
dann, wenn sie mit der VC1540 auf eine Diskette schreiben 
wollen, die mit einer anderen DOS-Version formatiert wurde, 
Auf COMMODORE-Rechnern existieren vier verschiedene DOS- 


Versionen! 
DOS 1.0 : CBM 2040/3040 
DOS 2.0 : CBM 4040 
DOS 2.5 : CBM 8050 
DOS 2.6 : CBM 1540 


Voll kompatibel sind die Versionen 2.0 und 2,6. Mit DOS 1.0 
und 2.0 bzw. 1.0 und 2,6 formatierte Disketten konnen wech- 
selseitig gelesen, aber nicht beschrieben werden. Bei einem 
Schreibversuch erscheint die obige Fehlermeldung. Die DOS- 
Version 2.5 ıst mit allen anderen Versionen weder schreib- 
noch lesekompatibel, 


74 : DRIVE NOT READY 
Es wurde versucht, die Floppy anzusprechen, ohne eine Dis- 
kette in das Laufwerk einzulegen. 


1.9 CURSOR-STEUERUNG PER JOYSTICK 


Schließt man einen Joystick an den VC-20 an, so bleibt es (lei- 
der) dem Benutzer bzw. Programmierer überlassen, die jeweilige 
Richtung, in die der Stab bewegt wird, zu bestimmen und im Pro- 
gramm zu verwerten. Das VC-20-Betriebssystem stellt keine Befehle 
zur Verfugung, die Richtung und das Drucken des Feuerknopfes 
festzustellen, 


Es gibt wahrscheinlich kein VC-20-Buch, das sich diesem Problem 
nicht in irgendeiner Form gewidmet hat. Die hier vorgestellten 
Programme JOYSTICK-CURSOR 1 und 2 (Bilder 1.91 und 1.9.2) aller- 
dings weisen 2 Besonderheiten auf: 
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a REM LIES CURSÜR PER JOrSTICK 
1a GOSLRSEOR 

2a FRINTLU-UG: GUSLBSAR:GUTUSE 

Sada BF=PEER 648) :CL=37883+r. BPANDEI#2ES 
sqaıa POKE3T13S. PEEK(ITLIFHANLLZSIT-4-8- 16-32) 
5928 DF=596 : CU=BP#256 : Uu=Cl OG=UG+S0S_ 
=a3g GOSUB1 GAREN! RI=ARSTERI- 100374) -7 
=a49 IFPEEKCCLSLEFTHENHPOKERLUPEEK CD 12H 

SsaSsa IFF=ATHENRETURN 

SAGE ONRISOSLBS17R. S19M, SIR... S1sh, 512. 52a. . , ‚51a, 510,515 
=a78 IFÜL<ZUGSTHEHLUSGUFDF 

934 IFLUPÜGTHENLU=SLU-DF 

=a38 POKELL+HEU-UG. 6 

Ss108 IFPEEKCCUIKLLZBSTHENPOKECL: PEEKCUIFLZE 

S11a GOTOSA3R 

5128 CU=CU-22:RETURN:REM H 

=j3A CU=CU-21:RETURN'REM Hü 

5140 CU=CU+@l:RETURN:REM U 

5159 Cl=eCU+23:RETURN:REM SO 

Si6@ CU=CL+22:RETURH'REM 5 

5178 CU=CU+21:RETURN:REM 54 

5180 CU=ll-21:RETURN:REM id 

51990 CU=CL-23:REM Hu 

52080 RETURN DEE on 
10000 FOkEarIsa,a ze 
1a01a RI=(PEEKC3TISZIANDIERI+CPEER.N371S1DANLGA+HR+1EH) 

10022 FOKE37154. 255 

10030 F=PEEKC3AFISIHAHDA2 

10240 RETURN 





Bild 1.9.1 


- Die Joystick-Abfrage wird mit der Cursor-Bewegung gekoppelt. 
Weil zudem noch die Cursor-Position per Variablen-Abfrage ein- 
fach bestimmbar ist, wird dem Programmierer fur zahlreiche An- 
wendungsfälle (auch Spiele) ein nützliches Werkzeug in die Hard 
gedrückt. 


- Der Abfragemechanismus enthalt u.a. eine Umrechnungsformel fur 
die Richtungsnummer RI, welche es erlaubt, deren Verwertung zu 


vereinfachen. 


Eine M-PGM-Routine für die Abfrage von einem oder auch zwei ange- 
schlossenen Joysticks finden Sie im Kap. 1.11. 
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BEDIENUNGSHINWEISE 


Das Programm JOYSTICK-CURSOR 1 oder 2 wird mit RUN gestartet. Es 
wird daraufhin der Cursor in der ersten Bildschirmstelle sicht- 
bar. Der Cursor kann durch entsprechende Richtungsgabe überall 
hinbewegt werden, auch die diagonalen Richtungen konnen benutzt 
werden. 


@ REM LIES GURSOR PER JOYSTICK 
18 GOSUBSABE 

2a PRINTCU-UG: SUSUBS LEE SoTued 
SBah BF=PEER“ VE IPB ANTZI#: 

sa1ua Se PEEKC37 LAFIAHNDCRS 54m ER 
Sg20 DF=Sße: GU=BER2I6 Gel Ber 

so2z DIMEDc1d). FORI=1T013:REALEDETD: NEXT 
S024 DATAZ1,-23.-1.,0. 22, 722.80:.8,0:6.1,-21.23 
S5asa GUSlpTemäh RI=ABSccRI-Tag3747-7 

Sa48 ITFPEEKCLDSLZFTHENFÜKELL. PEERCCD-128 
saSa IFF=ÄTHENRETUFRN 

Seas CU=GU+EDERI: 

=37& IFGLUEUGTHENDUeLU+OR 

Sara TFTSNGTHEHZU=SEL-DF 

aa FÜKEÜL+LU-UG.S 









5100 IFPEEKÜCLSCIERTHENPOKECLU. PEEKCLUI+LZE 
S118 GUTOSO3R 
10008 PORE371S4,0 


1a0 14 Klar PEERÖSISE>ANDIESI+LFEERLIFLSLTPÄNDC4+HB+16)) 
1e024 FÜRE37IS4.255 

aaa F=ePEEKL37LSLIANDSE 

1aag4e RETLRM 


Bild 1.9.2 


wird der Bildschirm an einer Seite verlassen, so erscheint er auf 
der gegenuberliegenden wieder. 


Die Feuerknopfbetatigung verursacht in diesen Programmen die Aus- 
gabe der Bildschirmstelle (0..505), wo sich momentan der Cursor 
befindet (der Wert CU-UG, s. Zeile 20). Dies soll freilich nur 
ein Beispiel für die Nutzungsmöglichkeiten sein. Dieser Wert kann 
genauso gut zu anderen Zwecken eingesetzt werden. 
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PROGRAMM-EINZELHEITEN 


1.) Name: JOYSTICK-CURSOR 1 und 2 
2.) Ausbaustufe: beliebig 
3.) Art der PGMe: Hilfsprogramme zur Joystickabfrage 


4.) Anzahl der Bytes 


5, 


7a 


—_ 


_ 


De 


JOYSTICK-CURSOR 1: 647 
JOYSTICK-CURSOR 2: 517 


Benutzte Variablen: 


BP Page-Nummer des 1. Halfte des Video- 
Speichers 

CL Anfangsadresse des Farbspeichers 

DF Anzahl der Zeichen auf dem Bildschirm 

CU Absolute Adresse innerhalb des Video- 
Speichers, wo sich der Cursor befindet 

UG Untere Grenzadresse des Video-Speichers 

0G Obere Grenzadresse des Video-Speichers 

RI Richtungsnummer (s. Bild 1.9.3) 

F Feuerknopf-Flagvariable 
=0, wenn gedruckt; ansonsten =32 

I Schleifenvariabel (nur in JOYSTICK-CUR- 
SOR 2) 

CD(14) beinhaltet die Cursor-Sprungdifferenzen 


(nur in JOYSTICK-CURSOR 2) 


Listings 

JOYSTICK-CURSOR 1: Bild 1.9.1 
JOYSTICK-CURSOR 2; Bild: 1.9.2 
Erlauterungen zu JOYSTICK-CURSOR 1: 


Zeilen 10 - 20: 

Hauptprogramm; in Zeile 10 wird das Unterprogramm ab Zeile 
5000 angesprungen, aus dem dann zuruckgekehrt wird, wenn der 
Feuerknopf gedruckt wird. Nach Ruckkehr wird in Zeile 20 die 
Differenz zwischen den absoluten Adressen von Cursorposition 
und unterer Video-Speicher-Grenze ausgegeben. Letzterer Wert 
entspricht der Cursor-Positionsnummer (0...505) auf dem Bild- 


54 


1.9 Cursor-Steuerung per Joystick 


schirm. Daraufhin wird zur weiteren Joystick-Abfrage das Un- 
terprogramm ab Zeile 5030 angesprungen (der Initialisierungs- 
teil in den Zeilen 5000-5020 muß ausgespart werden). Immer 
wieder nach dem Drucken des Feuerknopfes kehrt das Programm 
in die Zeile 20 zuruck. 


AESÄKRI- 1A 74-7 





Luscken: 4,8,9,18 
Bild 1,9,3 


Zeile 5000: 

Die Video-Speicher-Anfangspage (BP) kann der Speicherzelle 
#648 entnommen werden. Die Anfangsadresse des Farbspeichers 
(CL) berechnet sich durch die angegebene Formel, 


Zeile 5010: 

Die Bits 2,3,4,5 des Datenrichtungsregisters A des VIA #1 mit 
der Adresse $9113=#37139, welche den Signalen JOY O0 (Norden), 
JoY 1 (Suden), JOY 2 (Westen), FIRE (Feuerknopf) entsprechen, 
werden auf 0 gesetzt. D.h. die entsprechenden Eingange werden 
auf Eingabe programmiert. Der Eingang fur JOY 3 (Osten) ist 
nicht dem VIA #1 sondern VIA #2 (Bit ”) zugeordnet, kann aber 
nur unmittelbar vor der Abfrage programmiert werden, weil 
sonst die Tastatur (zumindest ein Teil davon) blockiert ware, 
was das Joystick-Abfrage-Programm etwas einschranken wurde. 
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Zeile 5020: 
Initialisierung der Variablen DF, CU, UG, 0G 


Zeile 5030: 

Nach Abfrage der Joystick-Leitungen in Unterprogramm ab Zeile 
10000 wird die Richtungsnummer einer Berechnung unterzogen, 
die eine relativ einfache Zuordnung zur gewahlten Richtung 
erlaubt (s. Zeile 5060 und Bild 1.9.3). 


Zeile 5040 - 5050: 

In Zeile 5040 wird das invertierte Zeichen, worauf sich der 
Cursor befindet, in Normaldarstellung gebracht und in Zeile 
5050 finden wir den Ausgang des Unterprogramms, Zuruckgekehrt 
wird dann, wenn der Feuerknopf gedruckt wird (F=D). 


Zeile 5060: 

Nachdem die Richtungsnummer RI der Formel in Zeile 5030 un- 
terzogen worden ist, ist der ON-Verzweigungsbefehl gut nutz- 
bar, weil RI Werte zwischen 1 und 13 angenommen hat (s. Bild 
1.9.3). Die Lucken (Werte 4,8,9,10) werden einfach in der ON- 
Anweisung nicht berucksichtigt und bleiben leer. Je nach 
Richtung wird ein Unterprogrammsprung zur entsprechenden Cur- 
sorverschiebung (Zeilen 5120-5200) vorgenommen. 


Zeilen 5070 - 5110: 

Danach wird in den Zeilen 5070 und 5080 ein "Wrap around" 
durchgefuhrt, d.h. falls der Cursor aufgrund der Berechnung 
in einer der Zeilen 5120-5190 den Bildschirmbereich verlassen 
sollte, dann wird er hier wieder "zuruckgeholt", Es kann wei- 
terhin passieren, daß der Cursor auf eine Bildschirmstelle 
ohne Farbe (Vordergrund- = Hintergrundfarbe) "landet". Da- 
durch, daß in Zeile 5090 die Farbe gesetzt wird, bleibt das 
Cursor-Blinken immer sichtbar. In Zeile 5100 wird das Zei- 
chen, worauf der Cursor steht, invertiert und in Zeile 5110 
wird zum Anfang des Unterprogramms gesprungen. 


Zeilen 5120 - 5200: 

Je nach Richtung (RI in 5060) wird hier die Cursor-Position 
verändert. 

Zeilen 10000 - 10040: 

enthalten die Joystickabfrage. Die Anweisung der Zeile 10000 
entspricht im Grunde genommen einer totalen Tastaturblockie- 
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rung, weil das Datenrichtungsregister fur Port B des VIA #2 
in Adresse $9122=#37154 vollstandig auf Eingabe programmiert 
wird. Normalerweise steht namlich Port B auf Ausgabe und Port 
A auf Eingabe, so daß das Drucken von maximal 63 Tasten er- 
kannt werden kann (8 x 8 abzgl. 1, weil "Keine Taste ge- 
druckt" auch in den Wertebereich der Abfragemoglichkeiten ge- 
hort). 

In Zeile 10010 werden die Eingange JOY 0,J0Y 1,J0Y 2 (die 
Bits 2,3,4 in Adresse $911F=#37151) sowie JOY 3 (Bit 7 in 
Adresse $9120=#37152) abgefragt und daraus die Richtungsnum- 
mer RI errechnet. Nachdem in Zeile 10020 dann die Tastatur- 
blockierung wieder aufgehoben worden ist, wird der FIRE-Ein- 
gang (Bit 5 in Adresse $91F=#37151) in Zeile 10030 abgefragt 
und das Unterprogramm verlassen, 


Erlauterungen zu JOYSTICK-CURSOR 2: 


Im Prinzip liegt hier der gleiche Algorithmus wie in JOY- 
STICK-CURSOR 1 vor, deswegen werde nur auf die Unterschiede 
gegenuber JOYSTICK-CURSOR 1 eingegangen, 


Zeile 5022 - 5024: 

Es wird das Feld CD definiert, dessen Elemente die Cursor- 
Sprungdifferenzen entsprechend der Zeilen 5120-5190 in JOY- 
STICK-CURSOR 1 sind. 


Zeile 5060: 

Dadurch, daß sich nunmehr dem neuen Wert RI (1..139 die ent- 
sprechende Sprungdifferenz in CD(RI) zuordnen laßt, ist die 
ehemalige ON-Ver zweigung hinfallig geworden. Die Berechnung 
der neuen Cursor-Position beschrankt sich also auf nur noch 
eine Programmzeile. 


1.10 JOYSTICKABFRAGE-PROGRAMME AUCH FUR 2 JOYSTICKS 


Sicherlich haben Sie sich auch schon einmal bei einem schonen 
Spiel gefragt, bei dem ein Joystick zu bedienen war, ob es denn 
nicht moglich sei, auch einen zweiten Joystick an den VC-20 anzu- 
schließen. Denn Spiele, in denen Wettkampfe zwischen zwei Spiel- 
partnern zu gleicher Zeit auszutragen sind, sind vielleicht viel 
aufregender und interessanter, 
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Der Anschluß eines 2, Joystick ist wenig aufwendig: Sie legen 
sich einfach einen USER-Port-Stecker zu und verbinden (löten) die 
Kabel des Joystick gemaß Bild 1.10.14 mit den entsprechenden 
Steckerpins. Das hier beschriebene Prinzip laßt sich ubrigens 


auch auf den Anschluß eines 3. Joystick erweitern, 


Der bloße Anschluß eines 2. Joysticks reicht zur Benutzung des- 
selben in einem Programm nicht aus, Dazu ist wieder ein speziel- 
les Abfrageprogramm notwendig. 


Anschluss einer 2. Joysticke an den You 


Fır am kedeuturn® Pin am 
Jnosstick-Stecker LISER-Port 





l Jür d = 
Norden? 

4 Juri F 
Sueden) 

3 H 

4 = 

& Ri 
Knart > 

3 GNL A 
Masse) 

Bild 1.10.1 


Wir stellen Ihnen in diesem Kapitel 2 Moglichkeiten der Joystick- 
abfrage vor: 


- Das Basic-Programm DOUBLE-JOYSTICK (s. Bild 1.10.2), welches 
exakt nach dem gleichen Algorithmus wie CURSOR-JOYSTICK 1 aus 
Kap. 1.9 arbeitet, 

- Das M-PGM JOYSTICK (s. Bild 1.10.4), das eine Abfrage der Joy- 


sticks ja wesentlich schneller vornimmt. 
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Beide Programme sind natürlich auch dann benutzbar, wenn nur ein 
Joystick angeschlossen ist, 


® REM LIES 2 JOYSTICKS 
18 GOSUBSEB8 
29 GOSUBS5938 : G0T028 
529 
5918 POKE37139, PEEK(37139> AND(235-4-8-16-32) 
5@15 POKE37138, PEEK(37138>AND<255-4-8-16-32-128) 
5238 GOSUB19988 'RI=ABST<RI-188574)-7 Ze 
5035 00SUB11988:R2=ABS<<R2-109)74)-7 
5958 IFF=8THENPRINT"FEUERN 1": RETURN 
5955 IFF2=8THENPRINT"FEUERN 2" RETURN 
5868 UNRIGOSUBS170,5198, 5188, ‚5168, 3128, 5288, ‚ ‚ ,31498,5138,5158 
5065 ONRZG0SUBS5278, 5298, 5289, ‚5260, 5220. 53399, ‚ ‚ ‚5248, 5230, 5250 
5118 GOT05938 
1 208 PRINT "NORD I 1 "RETI IRN ” 
5138 PRINT"NORD-OSTEN 1" RETURN 
5148 PRINT"OSTEN 1" :RETURN 
5158 PRINT"SUED-OSTEN 1" RETURN 
5168 PRINT"SUEDEN 1" :RETURN 
5178 PRINT"SUED-WESTEN 1": RETURN 
5180 PRINT"WESTEN 1" :RETURN 
5198 PRINT"NORD-WESTEN 1" 
5208 RETURN:REM KEINE RICHTUNG I 
5220 FRINT"NORD 2" RETURN 
5238 PRINT"NORD-OSTEN 2" :RETURN 
5248 PRINT"OSTEN 2" RETURN 
5258 PRINT"SUED-OSTEN 2" :RETURN 
5268 PRINT"SUEDEN 2" RETURN 
5278 PRINT"SUED-WESTEN 2": RETURN 
5280 PRINT"WESTEN 2" RETURN 
5298 PRINT"NORD-WESTEN 2" 
5308 RETURN:REM KEINE RICHTUNG 2 
I ’ 
180818 RI=(PEEK(371S2>ANDI28)+CPEEKC371S1>AND<C4+8+16)) 
100828 FOKE37134,255 
188308 F=PEEK<(37151)AND32 
10048 RETURN u nn BES 
T188d R2=PEEK(I7I36S)AND<4+8+16+128) 
11818 FZ2=PEEK(37136)AND32 
11828 RETURN 

Bild 1.10.2 


1. DAS BASIC-PROGRAMM ZUR JOYSTICKABFRAGE 


Dieses Programm ist als Demonstrationsbeispiel anzusehen. Nachdem 
es mit RUN gestartet wird, wird je nach Richtungsgabe der 2 
gleichzeitig benutzbaren Joysticks die entsprechende Richtung, 
versehen mit "i" fur Joystick 1 und mit "2" fur Joystick 2, auf 
dem Bildschirm angezeigt. Wenn die Feuerknopfe gedrückt werden, 
erscheint "FEUERN 1" bzw. "FEUERN 2", Dort, wo im Programm diese 
PRINT-Anweisungen vorkommen, konnen ändere Befehle je nach der 
von Ihnen beabsichtigten Zielsetzung stehen. 
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PROGRAMM-EINZELHEITEN 


1.) Name: DOUBLE-JOYSTICK 
2.) Ausbaustufe: beliebig 
3.) Art des PGMs: Joystickabfrage-Programm 
4.) Anzahl der Bytes: 916 
5.) Benutzte Variablen: 
RI Richtungsnummer des Joysticks 1 
R2 " " " 2 
F Feuerknopf-Flagvariable fur Joystick 1 
F2 = . mn 2 
6.) Listing: Bild. 1.10.2 
7.) Erläuterungen zum Programm: 


Prinzipiell konnen die in Kap. 1.9 aufgefuhrten Erläuterungen 
übernommen werden. Es kommen aufgrund der Berücksichtigung 
des 2. Joysticks folgende Anmerkungen hinzu: 


Zeile 5015: 

Die Bits 2,3,4,5,7 (JOY 0, JOY 1, JOY 2, FIRE, JOY 3 des 2. 
Joysticks) des Datenrichtungsregisters fur Port B des VIA #1 
werden auf Eingabe programmiert. 


Zeilen 11000 und 11010: 
Die Variable R2 erhalt ihre Richtungsnummer entsprechend wie 
in Zeile 10010. Das gleiche gilt für F2. 


Die Auswahl der Eingabeleitungen zum USER-Port für Port B 
bezgl. des 2. Joystick ist so vorgenommen worden, daß die Be- 
deutungen der verwendeten Bits die gleichen wie diejenigen 
fur Port A bezgl. des 1. Joysticks sind. Dies hat zur Folge, 
daß die Behandlung der Richtungsnummern RI und R2 gleich ist. 
Die Analogien lassen sich unschwer erkennen: 
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Joystick 1 betreffend Joystick 2 betreffend 
Zeile 5030 Zeile 5035 
“ 5050 n 5055 
” 5060 ” 5065 
Zeilen 5120-5200 Zeilen 5220-5300 
Zeile 10010 Zeile 11000 
ü 10030 3 11010 


2. DAS M-PGM ZUR JOYSTICKABFRAGE 


Das Maschinenprogramm JOYSTICK (s. Bild 1.0.4) wird je nach Ih- 
rem Wunsch in einem beliebigen Speicherbereich generiert. Wenn 
Sie es pauschal am RAM-Ende ablegen lassen, wird es gegen über- 
schreiben geschützt und sie konnen es auch dann aufrufen, wenn 
Sie beliebige andere Programme im Arbeitsspeicher haben. Weiter- 
hin ist es koppelbar mit von Ihnen frei definierbaren Befehlen 
(s. Kap. 4.1). 


BEDIENUNGSHINWEISE 


Das Maschinen-Programm wurde in den im Kapitel 5.2 beschriebenen 
Basic-Loader (s. Bild 1.10.3) eingebunden, Detailinformation 
bezgl. diesem kann dort in Erfahrung gebracht werden. Der Basic- 
Loader wird normal mit RUN gestartet. Sie werden gefragt, ab wel- 
cher Adresse (dezimal) das M-PGM generiert werden soll. Bei Ein- 
gabe von "E" wird es ans Basic-RAM-Ende gespeichert, wobei even- 
tuell schon andere vorhandene M-PGMe in keinster Weise angetastet 
werden. 


Nachdem Sie die Eingabe der gewunschten Anfangsadresse oder "E" 
mit RETURN bestatigt haben, wird auf dem Bildschirm der SYS-Be 
fehl angezeigt, mit dem man JOYSTICK aufruft. 


Wenn Sie beispielsweise eine 24 KByte-Speichererweiterung besit- 
zen und "E" eingegeben haben, erhalten Sie die Aufruf"Formel": 


SsyS 32679 
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18 REM JUYSTICK-ABFRAGE 

30 L=82 

48 PRINTCHR$(147>"ABLEGEN DES M-POM:" 

5@ FRINT:PRINT:PRINT"E = AM ENDE VOM BASIC-"SPCC4>3 "RAM-BEREICH" 


68 PRINT:PRINT:PRINT"(ZAHL> GEWUENSCHTE AN-"SPC(7) "ANFANGSADRESSE"SPC<8)" DEZIMA 


L> VOM" 

?@ PRINTSPC (7) "PRÜGRAMM" : PRINT :PRINT 

88 INPUTR$: SD=YAL (A$ >: IFSUTHEN16@ 

90 IFAS<C>"E"THEN4O 

180 EM=PEEK (35? +256#PEEK (36) : AD=EM-L : ER=PEEK 6437 +256WPEEK (644) 
13@ POKEEM-3, 197: POKEEM-2, 286 : POKEEM-1, 196 : AD=AD-7 : BOSUB2S50 

148 POKEEM-S5, AL: POKEEM-4, AHA 

158 GOSLB23B : POKESS, AL: POKES6, AH :AL=FRE(9) :SD=AD 

1608 BOSUB268 

178 FORI=SDTOSD+L-1 :READRA : CH=CH+A 

218 POKEI,A: IFFEEKSI>=ATHENNEXT 

230 IFCH<>?S9BTHENFRINT :PRINT"PROGRAMM IST FEHLER- HAFT EINGEGEBEN !!!":STOrF 
248 NEW 

258 AHA=AD/2SE : AL=AD-256HÄHR : RETURN 

268 PRINTCHR$< 1473 "M-POM-AUFRUF MIT: "PRINT 

27@ FRINTCHRS(C18) "SYS" SDCHR$&( 1453 : RETURN 

18080 DATA173, 19,145, 72,41,195,141,19, 149, 173,34, 145, 72,41,127, 141 
1818 DATA34,145,173,31,145,178,41,28.141,62,3,173:32,146,41,128 
1828 DATA13,62.3,141,62,3,198,41,32,141,63,3,104,141,34,145 

18308 DATA194,141,19,145,234,1793, 18,145, 72,41,67,141,18,145,173,16 
1848 DATA145,170,41,196,141,64,3,138,41,32,141,65,3,184,141,18 
1890 DATA145,96 


Bild 1.10.3 


2008 LDA $#9113 Datenrichtunssresister Port R VIR#I 
2883 PHR retten 

2004 AND #863 PR 5,4,3,2 

20086 STA $#9113 auf Input Pro9rammieren 
2009 LDA #9122 Datenrichtunssresister Port B VIA#2 
288C PHR retten 

20080 AND #$#7F PB? 

z88OF STA_$9122 _ .auf_Input Programmieren _ _ _ 
2812 LDA #911F Port A VIA#1 abfrasen 

2815 TAX nach X retten 

2816 AND #s1C PA 4,3,2 maskieren 

2818 STA #a39E nach $033E = #830 

201B LDA #9220 Port B VIA#2 

2B1E AND #508 PB 7 maskieren 

20208 ORA #033E ueberlasern mit PA 4,3,2 VIR#I 

2023 STA #033E Gesamtergebnis nach #O33E 

20826 TXA Port AR VIRM 

2027 AND #828 PR S maskieren (FIRE? 
2029 _STA #O33F_ __ nach 2B3F = HB _ [U _ _ _ 
282C PLA Datenrichtunssresister 

2020 STA $#9122 wiederherstellen 
2038 PLA 

831 STA_#9113 

834 NOP 

2035 LDA #9112 Datenrichtunssre@ister Port B VIRM 
2038 PHA retten 
2039 AND #843 PB 7,5,4,3,2 

2083B STA #S112 _ __ _ .____ _ _ auf Input Programmieren 
283E LDA #9118 Port B VIAMl abfrasen 
2041 TAX nach X retten 
2842 AND #89C PB 7,4,3,2 maskieren 
2844 STA #0348 nach #0348 = 4832 

2047 TXA Port B 

2048 AND #820 FB 5 maskieren (FIRE) 
284A STA #031 __ _ nach aM = ML _ 
284D PLA Datenrichtungsresister 
204E STA $9112 wiederherstellen 
2051 RTS 


Bild 1.10,.4 
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Bei der Abfrage der Joysticks in diesem Programm gibt es keine 
Variablen RI, R2, F, F2. Diese Werte müssen durch PEEK-Befehle 
den Speicherzellen #830-833 entnommen werden. Dabei entsprechen 
die Variablen in folgender Weise den Speicherwerten: 


Variable Speicherzelle (#) 
RI 830 
F 831 
R2 832 
F2 833 


PROGRAMM-EINZELHEITEN 


1.) Name: F JOYSTICK 
2.) Ausbaustufe: beliebig 
3,) Art des PGMs: Basic-Loader 
4,) Anzahl der Bytes 
des Basic-Loaders: 937 
des M-PGMs: 82 


5.) Benutzte Variablen: s, Kap. 5.2 


6.) Listings 
des Basic-Loaders: 85.19: 1.10.93 
des M-PGMs: Bild 1.10.4 


7,) Erläuterungen zum Basic-Loader werden in Kap. 5.2 gegeben und 
zum M-PGM implizit im Listing (Bild 1.10.4) 


BEISPIEL 


Das Programm in Bild 110.5 tut im wesentlichen nichts anderes 
als das Basic-Programm im 1. Teil dieses Kapitels. Daß es um ei- 
niges kurzer ist, ist offensichtlich. In diesem Beispiel ge- 
schieht die Joystickabfrage uber SYS 888 (Zeile 5030), weil ab 
#888 das M-PGM generiert wurde. Falls es gemaß obigen Generie- 
rungsbeispiel am Ende einer 24 KByte-Erweiterung liegt, so müßte 
in Zeile 5030 der SYS-Befehl lauten: SYS 32679, 
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Die übrigen Detailinformationen bezgl. diesem Demo-Programm ent- 
nehme man den oben getroffenen Ausführungen. 


8 REM JOTSTICKARFRAGE DEMÜ 

18 GOSUBSEAE 

29 GOSUBRSQ3E: GOTDZE 

saaRa REM UP ZUR BEARBEITUNG DER JNTSTIEKSTELLUNGEN 
So30 STSO88:RI=ABSt CPEER SA) - 1004-7 

5235 R2=ABS((CFEEKSIE)-1QE) 740-7 

Ssasa IFPEEKS31>=ATHENPRINT"F 1" RETURHM 

5255 IFPEERES33?=ÄTHENFRIHT"F 2" RETUFRM 

Sasgd ONRIGLSURS17B, 5190, 5188. . 5152. Sal, Bed, 514,513, 
9655 ONRZBCSURSZ7R. SEP. TER. SESA. SEE, TA. eh, ee ee 
s11a GOTOSA3E 

S1z2EQ PRIHT"N 1":RETURH 

z13d FRINT"HNÜ 1" RETURH 

Si4@ FRINT"O 1":RETURN 

S15a PRINT"SCO 1" RETUFN 

sisf FRINT"S 1": RETURN 

Ssira FRINT"SW 1" RETURN 

132 PRIMT"W 1" RETURN 

15a FRINT"NW 1" 

52080 RETIUFRH 

S2za FRIHT"H 2° :RETURH 

S2aR FRINT"HO 2" RETURH 

S24d FRINT"ÜO 2" RETURM 

52580 PRINT"SO 2" RETURN 

S26a PREINT"S 2" RETURM 

SEr8 FRINT"SU 2" RETURN 

Ss23d FRINT"U 2": RETURM 

5230 FRINT"HW 2" 

300 RETIRM 





Bild 1.10.5 


1.11 HOCHAUFLÖSENDES ZEICHNEN MIT DEM JOYSTICK 


Das ziemlich kurze Programm (556 Bytes) in Bild 1.11.1 verwendet 
die Joystickabfrage zum Zeichnen eines Bildes in hochauflosender 
Grafik. Im Kapitel 6.10 erfahren Sie noch weitere Einzelheiten 
über die hochauflösende Graphik. 


Dieses Programm funktioniert nur im GV-Modus. Ein VC-20 mit Spei- 


chererweiterung laßt sich schnell über die im Kap. 6.3 besproche- 
nen Methoden in diesen Modus "umschalten", 
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1.11 Zeichnen mit dem Joystick 


Nachdem RUN eingegeben worden ist, tut sich erst einmal einiges 
auf dem Bildschirm. Auf schwarzem Hintergrund wird ein weißer 
Rahmen aufgebaut und in der Mitte erscheint ein weißer Punkt in 
der Große eines einzelnen Pixels, gewissermaßen ein Mini-Cursor, 
Mit dem Joystick konnen nun Linien je nach der von Ihnen vorgege- 
benen Richtung gezeichnet werden. Wenn der "Cursor" ohne zu 
zeichnen bewegt werden soll, wird einfach auf den Feuerknopf ge- 
druckt. Das Auswischen des Bildes geschieht durch Drucken auf die 
SPACE-Taste, 


a REM ZEICHNEN MIT JUFSTICK 

10 POKE36879. 8: PÜKE36867 , 21: POKEISAG4, 17 

2a FÜKE36863. 45: POKEIGBSS. 144 PLKE36UBI, 253 

3@ PRINTCHRE(147): FORA=1TOLGFÜRN=1TO1G 

48 POKE76B3+LEHN+R, N+LEMA-11NEXTN,A 

sa FORA=5129107679: POKER, 8: NEXT: POKE37 154, 127 X=64 | ud 
68 FORA=5120T07679STEP 168: POKER: 255: POKER+159, 255: NEXT 
?@ FÜRA=5121105278: POKER, 128: POKER+24@8, 1 'NEXT 

80 K2=63: Y2=79 . 
90 A=PEEK(37137) :KeN+t AANDIEI=O) Yar+lcHANDdeE) 
109 Yer-CAANDEI=B) : NeX-L CPEEK(371S2IANDIZE)=B) 

118 IFPEEK(ZE3I)ANDSSTHENRUN 

120 IFXZ=XANDYZ=TTHENI® 

130 F=-(CAAND3ZI=8) : IFF=@THEN1SE 

140 W1=Y2+5120+16OMINTCK278) :POKEFI , PEEKCYLIANDNOTZTK7-KZANNT) 
150 Vl=Y+S120+16OHINTCK/B) :POKEYIPEEKCFLIORZTCT-KAND?) 

160 K2eX vZer  GOTOIR 


Bila 1.11.1 


65 


2 


Basic-Programmierhilfen 


2.1 Speicherorganisation 


2.1 SPEICHERORGANISATION BEI EINEM BASIC-PROGRANM 


Fur manche Anwendungen wie Progammanipulationen, "Verstecken" ei- 
nes Maschinenprogramms in einem Basic-Programm, Einbringen von 
Schutzmechanismen etc. ist die Kenntnis daruber unbedingt erfor- 
derlich, wie ein Basic-Programm im VC-20-Arbeitsspeicher vom Be- 
triebssystem organisiert ist, 


ANFANG UND ENDE DES BASIC-ARBEITSSPEICHERS 


Der Basic-Arbeitsspeicher wird durch 2 Vektoren begrenzt: 


Speicherzellen #43,44 = $2B,2C: Basic-Anfang (BA) 
. #55 ,56 = $37,38: Basic-Ende (BE) 


Nach Einschalten des Gerats oder RESET werden diese Vektoren auf 
die in Bild 21.1 aufgefuhrten Anfangswerte gesetzt, falls dies 
nicht durch ein Modulprogramm mit Autostart (s. Kap. 6.5) verhin- 
dert wird, 


Inhalt in #44 = S2C #56 = $38 
# S # $ 
GV 16 10 30 1E 
3K-V 4 04 30 1E 
8K-V 18 12 64 40 
16K-V 18 12 96 60 
24K-V 18 12 128 80 
Bild 2.1.1 


Die Inhalt in #43=$2B ist in allen Fallen 1 und in #55=$37 der 
Wert 0, 


überprufen Sie die 0.9. Werte speziell in Ihrem Gerät durch: 


PRINT PEEK(43) ;PEEK(44) ;PEEK(55) ;PEEK(56) (Return) 
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2.1 Speicherorganisation 


Da die Vektoren im LOW/HIGH-Format gespeichert sind, ergeben sich 
für die Vektoren BA und BE die absoluten Adressen zu den Werten 
gemäß Bild 2.1.2. 


Zu BA muß erganzend gesagt werden, daß es zum ordentlichen Funk- 
tionieren eines Basic-PGMs unbedingt erforderlich ist, daß die 
Speicherzelle unmittelbar unter BA den Wert 0 enthalt. Folgerich- 
tig befindet sich in den Zellen #4096 bzw. 1024 bzw. 4608 der 
Wert 0. Diese 0 kann als Bestandteil des Basic-Bereichs aufgefaßt 
werden, so daß BA in Wirklichkeit auf die 2. Speicherzelle des 
Basic-Arbeitsspeichers zeigt. 


Bei BE konnen wir eine ähnliche Aussage wie bei BA treffen. Der 
Vektor #55,56 zeigt nämlich nicht auf exakt die letzte Speicher- 
zelle,. sondern auf die daruber. Diese gehort bereits in einen an- 
deren Bereich. Im Fall GV zählt die Adresse #7680 zum Video-Spei- 
cher, in der 24K-V die Adresse #32768 zum Zeichengenerator. 


Die Vektoren BA und BE lassen sich durch POKE-Befehle je nach An- 
wendungsfall nach Belieben verändern, nur sollte man darauf ach- 
ten, daß BE > BA ist, und ein durchgehender RAM-Bereich zwischen 
BA und BE vorhanden ist. Wenn z.B. der Basic-Arbeitsspeicher zwi- 
schen den Adressen BA = #5001 = 137+256%19 und BE = #6000 = 
112+256*%23 festgelegt werden soll (die LOW/HIGH-Anteile lassen 
sich mühelos mit dem Programm VC-CONVERT in Kap. 5.3 berechnen), 
dann ist die folgende Eingabe im Direkt-Modus notig: 


POKE 43,137:POKE 44,19:POKE 55,112:POKE 56,23:POKE 5000 ,0:NEW 


BA BE 

# $ # S 
GV 4097 1001 7680 1EO00 
3K-V 1025 0401 7680 1EO0O0 
8K-V 4609 1201 16384 4000 
16K-V 4609 1201 24576 6000 
24K-V 4609 1201 32768 8000 

Bild 2.1.2 
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2.1 Speicherorganisation 


Das POKE 5000,0 ist erforderlich aufgrund der oben getroffenen 
Aussage, daß am Basic-Anfang eine 0 stehen muß, und diese nicht 
automatisch (ausgenommen beim Einschalten oder RESET) erzeugt 
wird. Das NEW sorgt dafur, daß die anderen Basic-Vektoren, auf 
die wir gleich eingehen werden, automatisch den neuen Verhaltnis- 
sen angepaßt werden. 


Aufgrund der bisherigen Ausfuhrungen kann übrigens der Schluß ge- 
zogen werden, daß mit dieser Arbeisspeicherfestlegungsmethode 
mehrere Basic-Programme, welche in Hinblick auf die verwendeten 
Zeilennummern voneinander vollig unabhangig sein durfen, in den 
insgesamt verfügbaren RAM untergebracht werden konnen. Das "Um- 
schalten" geschieht jeweils durch Befehlszeilen gemaß obigem Bei- 
spiel. 


UNTERTEILUNG DES BASIC-ARBEITSSPEICHERS 


Nachdem wir im ersten Abschnitt dieses Kapitels gelernt haben, 
wie der Anfang und das Ende des Arbeitsspeichers nach Belieben 
festgelegt werden kann, wenden wir uns nun der Frage zu, wie in- 
nerhalb dieser Grenzen Variablen, Felder und Daten verwaltet wer- 
den, 


5 Vektoren haben die Aufgabe, die einzelnen Bereiche des Arbeits- 
speichers voneinander abzugrenzen: 


Speicherzellen #45,46 = $2D,2E: Variablen-Anfang (VA) 

RR #47,48 = S2F,30: Felder-Anfang (FA) 

” #49,50 = $31,32: Felder-Ende (FE) 

" #51,52 = 833,34: String-Anfang (SA) des zu- 


letzt gespeicherten Strings 

bzw. Anfang der String-Daten 
ei #53,54 = 535,36: String-Ende (SE) des zuletzt 

gespeicherten Strings 


Zwischen BA und VA-1 liegt das Basic-Programm,. Ab VA sind die Va- 
riablen und Funktionen gespeichert. Wie diese abgespeichert sind, 
erfahren Sie in Kap. 4.11 "DUMP per Basic", Die obere Grenze für 
die Variablen und Funktionen ist FA-1. Von FA bis FE-1 reicht der 
Speicherplatz für die Felder. 
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2.1 Speicherorganisation 


An sich sind die Werte der Variablen und Felder in den eben ge- 
nannten Bereichen integriert. Dies gilt allerdings nicht fur die 
String-Variablen und -Felder. Das liegt daran, daß bei Strings 
nicht von vornherein klar ist, aus wieviel einzelnen Zeichen die 
eine oder andere Variable bestehen wird. In größeren Rechenanla- 
gen kann man es sich leisten, fur Strings Speicherbereiche mit 
vorgegebener Lange zu reservieren. Beim VC-20-Basic, wie beim Ba- 
sic vieler anderer Heimrechner auch, ist man zwecks optimaler 
Speicherausnutzung jedoch den Weg gegangen, daß die String-Daten 
ans Basic-Ende gelegt werden. 


Der Vektor SA hat zwei Aufgaben: normalerweise zeigt er auf das 
1. Zeichen der zuletzt abgespeicherten String-Datenkette, die im 
Laufe des Programms oder auch im Direkt-Modus einer String-Varia- 
blen bzw. einem String-Feldelement zugewiesen worden ist, Beim 
Abspeichern kann es jedoch vorkommen, daß das Betriebssystem ge- 
zwungen wird, samtliche "Garbage"-Daten - String-Daten also, wel- 
che irgendwann vorher einmal einer Variablen oder einem Feldele- 
ment zugewiesen waren, nun aber nicht mehr - herauszuwerfen (die 
sogannte "Garbage-Collection”, Dies geschieht dann, wenn sonst 
ohnehin kein Platz mehr zum Abspeichern vorhanden ware oder aber, 
wenn die Funktion FRE aufgerufen wird, Tritt einer dieser beiden 
Falle auf, dann zeigt der Vektor SA grundsatzlich auf den Anfang 
(also auf das untere Ende) samtlicher vorhandener und zugewiese- 
ner String-Daten. Es ist daraus unschwer ableitbar, daß das Re- 
sultat der Funktion FRE genau der Differenz der Vektoren SA und 
FE entsprechen muß. 
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Bild 2.1.3 
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2.1 Speicherorganisation 


SE zeigt normalerweise auf die Speicherzelle, welche hinter der 
zuletzt abgespeicherten String-Datenkette liegt. Der Wert von SE 
hat keine Bedeutung, wenn eine Garbage-Collection eingetreten 
ist. 


Anhand des Beispiel-Programms in Bild 21.3 sollen die Werte der 
0.9. Vektoren und deren Veranderungen erlautert werden. Wie gehen 
davon aus, daß dieses Programm in einem VC-20 in GV geladen wird 
(Umschalten in GV: s. Kap. 6.3). Wird das Programm mit RUN ge- 
startet, so wird als erstes das Unterprogramm ab Zeile 1000 auf- 
gerufen, worin die Werte samtlicher oben besprochenen Vektoren 
ausgegeben werden (Bild 2.1.4a), Die Lange des Programms ist ein- 
fach durch Differenzbildung von VA und BA ermittelbar; es ist al- 
so 297 Bytes lang. Wie Sie durch Vergleich mit den Vektor-Werten 
fur VA und BA nach den weiteren Eingaben erkennen konnen, bleiben 
diese konstant, die Programmlange bleibt demnach unverandert. Das 
muß nicht notwendigerweise immer so sein. Es gibt auch Programme, 
in denen per POKE-Befehl der Vektor VA verändert wird, z.B. wenn 
Programmteile von Diskette nachgeladen werden sollen etc. 


BA= 4097 BA= 4097 BA= 4097 
VA= 4394 VA= 4394 VA= 4394 
FA= 4394 FA= 4401 FA= 4408 
FE= 4394 FE= 4401 FE= 4408 
SA= 7680 SA= 7680 SA= 7677 
SE= xXXxX SE= XXXX SE= 7680 
BE= 7680 BE= 7680 BE= 7680 
Bild 2.1.4a Bild 2.1.4b Bild 2.1.4c 


Die Eingabe von A in Zeile 20 bewirkt, daß fur die Variable A 
sieben Bytes von VA an aufwarts reserviert werden. Deswegen ver- 
schieben sich FA und FE um 7 Bytes nach oben (Bild 2.1.4b). 

In Zeile 30 wird der String ES eingegeben, z.B. "ABC", Zur Ver- 
waltung von E$ muß zwischen FA und VA wieder Platz fur 7 Bytes 
geschaffen werden (Bild 2.1.4c). Außdem wird "ABC" ans Basic-Ende 
gelegt. SA wird hierbei auf die Speicherzelle gerichtet, die das 
1. Zeichen, also "A" enthalt. SE hatte in den ersten beiden Fal- 
len keine Bedeutung (deswegen xxxx in den ersten Bildern), jetzt 
aber zeigt SE auf die Speicherzelle unmittelbar hinter "C”, 
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2.1 Speicherorganisation 


In Zeile 40 wird abermals ein String eingegeben, die Variable F$: 
wir nehmen z.B. an: "123", Wieder muß zwischen VA und FA Platz 
für 7 Bytes eingerichtet werden, Außerdem werden SA und SE auf- 
grund dieser Eingabe entsprechend ausgerichtet (Bild 2..4d). 


BA= 4097 BA= 4097 BA= 4097 
VA= 4394 VA= 4394 VA= 4394 
FA= 4415 FA= 4415 FA= 4394 
FE= 4415 FE= 4442 FE= 4394 
SA= 7674 SA= 7674 SA= 7680 
SE= 7677 SE= 7677 SE= xXxxxX 
BE= 7680 BE= 7680 BE= 7680 
Bild 2.1.4d Bild 2.1.4e Bild 2.1.4£ 


Bisher hatten FA und FE die gleichen Werte, weil im Programm kein 
Feld benutzt worden ist. In Zeile 50 jedoch wird das eindimensio- 
nale Feld B definiert, welches 4 Elemente (0 eingeschlossen) auf- 
weisen soll, Aus der Differenz von FE und FA konnen wir ableiten, 
daß fur das Feld B 27 Bytes reserviert wurden (Bild 2.1.4e), 
Diese Zahl wird durch die allegemeine Formel bestätigt: 


Benotigter Speicherplatz fur Felder = 5 + 2%D + EXT 


mit: D = Dimension (z.B.: B(3) ist eindimensional, 
C(4,5) ist zweidimensional etc.) 
E = Insgesamte Anzahl der Feldelemente 
(z.B.: B(3) enthalt 4 Elemente, C(4,5) 
besteht aus 30 Elementen) 
T=5 fur Gleitkomma-Felder 
= 3 5 String-Felder 
2 u Integer-Felder 


Der momentane Zustand im Arbeitsspeicher in Verbindung mit den 
Werten der hier besprochenen Vektoren wird zusätzlich mittels 
Bild 2.1.5 veranschaulicht. 
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BE: =——3 


SE ==>) 


SA ---) 


FE ---) 


FA ---> 


VA ---) 


BA ---) 


2.1 Speicherorganisation 


Adresse (#) 
1. Speicherzelle des 7680 
des Video-Speichers 


C 7679 
"B" 7678 
"A" 7677 
u 7676 
“2: 7675 
E 7674 


4442 

B(3) 4437 
B(2) 4432 
B(1) 4427 
B(0) 4422 
Feldname B u. Dim, 4415 
Variable FS$ 4408 
Variable E$ 4401 
Variable A 4394 
Programm 4097 
0 4096 


Bild 2.1.5 
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2.1 Speicherorganisation 


In Zeile 60 des Programms wird die Funktion CLR benutzt. In Bild 
2.1.4£ ist erkennbar, daß nach CLR sämtlicher Speicherplatz für 
Variablen und Felder wieder freigegeben wurden, Es liegen sodann 
die gleichen Verhältnisse wie bei Programmeinstieg vor. 


Wie Variablen gespeichert werden, haben wir in Kap. 4.1 erfah- 
ren. Es steht noch die Antwort auf folgende Frage aus: 


WIE WERDEN FELDER GESPEICHERT ? 


Betrachten wir zu Anfang der Einfachheit halber eindimensionale 
Felder, diejenigen also, denen bei der Definition per DIM-Anwei- 
sung nur eine Zahl fur die Anzahl der Feldelemente zugewiesen 
wird. Z.B. wird in der Zeile: 


10 DIM AB(1000) 


ein eindimensionales Gleitkomma-Feld definiert, welches 1001 
Feldelemente aufweist (das Feldelement AB(0) gehort ja dazu) Wir 
wissen zwar aus der oben angegebenen Formel bereits, daß für das 
Feld AB 5012 Bytes Speicherplatz gebraucht werden, jedoch nicht, 
welche Bedeutung die einzelnen Bytes haben. Bild 2.11.6 veran- 
schaulicht das Speicherungsprinzip für Gleitkomma-Felder. Für 
NZ1,NZ2 sowie die Werte gelten die Regeln aus Kap. 4.11 (Funk- 
tionsdefinitionen gibt es bei Feldern allerdings nicht). 


Byte | 1 | 2 | 3 | 4 | s | 6 lı 7 I 
Inhalt | 2 | 22 | 150) | 1ScD | DI | FzaD | za | 
Be IB 
Inhalt | Wert des Feldelemente DD) | Wertdes | 
Byte TEE 
25 og 77 er Fe | 


Bild 2.1.6: Eindimensionales Gleitkomma-Feld 
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2.1 Speicherorganisation 


Mit: IS(L),ISCH) Speicherplatz, der fur das Feld insge- 
samt benotigt wird (s. obige Formel), im 
Beispiel: 148, 19 
DIM Anzahl der Dimensionen, im Beisp,: 1 
FZ(H) ,‚FZ(L.) Feldelement-Anzahl im Beisp.: 3, 233 


Das eindimensionale Integer-Feld unterscheidet sich vom Gleitkom- 
ma-Feld dadurch, daß zur Abspeicherung des Werts jedes Feldele- 
ments nur 2 Bytes anstatt 5 Bytes erforderlich sind. Beim String- 
Feld werden jedem Feldelement-Wert 3 Bytes zugewiesen, die natur- 
lich nicht die Daten enthalten, sondern die Lange und die An- 
fangsadresse der Daten. Mehr Details dazu erfahren Sie im Kap. 


4.18. 


Byte | 1 | 2 | 3 | 4 | 53 | 6 hi 2 | 

I-- m | 
Inhalt | NZ1 | NZ2 | ISCL) | ISCH) | DIM | F3CH) | F3CL) | 
Byte | 8 | I | 10 | 12 3 I 14 | 


Inhalt | F2CH) | F2CL) | FICH) | FiCL) | Wert (0,0,0) | Wert 


Inhalt (1,0,0)| Wert (0,1,0) | Wert (1,1,0) | Wert (0,2,0) ... 


Mit: IS(L),ISCH) Insgesamter Speicherplatz, der für das 
Feld benotigt wird (s. obige Formel), im 
Beispiel: 59, 0 


DIM Anzahl der Dimensionen, im Beisp.: 3 

F3CH),F3(CL) Feldelement-Anzahl der 3. Dimension, im 
Beisp.: 0, 4 

F2CH),F2(L) Feldelement-Anzahl der 2. Dimension, im 
Beisp.: 0, 3 

F1CH),,F1(L) Feldelement-Anzahl der 1. Dimension, im 


Beisp.: 0, 2 


Bild 2.1.7: Dreidimensionales Integer-Feld 


77 


2.1 Speicherorganisation 


Bei den mehrdimensionalen Feldern gehen wir wieder von einem Bei- 
spiel aus, Die Anweisung: 


20 DIM XY%(1,2,3) 


definiert ein dreidimensionales Integer-Feld des Namens XY% und 
enthalt (1+1)%(2+1)%(3+1)=24 Feldelemente, Gemaß obiger Formel 
werden zur Abspeicherung des Feldes XY% insgesamt 59 Bytes beno- 
tigt. Das Speicherungsprinzip hierbei ist dem Bild 21.7 zu ent- 
nehmen. Was hier fur 3 Dimensionen gezeigt ist, laßt sich auf Di- 
mensionen hoherer Ordnung ubertragen, Nach der Dimensionszahl im 
5. Byte werden hintereinander im HIGH/LOW-Format die Feldelement- 
Anzahl der einzelnen Dimensionen (bei der letzten wird angefan- 
gen) abgelegt, wonach dann die Werte der Feldelemente folgen. 
Hochgezahlt wird die 1. Dimension, dann die 2. etc. Fur das For- 
mat der Werte gelten die in Kap. 4.11 beschriebenen Regeln. 


PROGRAMM-STRUKTUR 


Nachdem das Drumherum von Programmen in genugender Weise erlau- 
tert sein durfte, wenden wir uns zum Schluß der Frage zu, wie 
denn ein Programm selbst organisiert ist. Zunachst einmal muß das 
Betriebssystem wissen, wo das zu bearbeitende Basic-PGM beginnt, 
Der Vektor #43,44 gibt daruber Auskunft, was ja am Anfang dieses 
Kapitels schon ausreichend erlautert wurde, Dieser zeigt demnach 
auf die 1, Programmzeile, 


I<---- Vektor #43,44 
| 
v 
Byte it! 1 21 312 IE N I N#+1 | N+2 | N#+3 | 
— | 
Inhalt | Link zur | Zeilen- | Inhalt dr | 0 | Link zur | 
| Folgezeile| Nummer |Programmzeile| | Folgezeile | 
| | 
| | 
a Bl nn >| 


Bild 2.1.8: 1. Basic-Programmzeile 
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2.1 Speicherorganisation 


In Bild 2.1.8 ist das Prinzip der Zeilenverkettung erkennbar. Die 
ersten 2 Bytes (im Bild die Bytes 1 und 2) enhalten ım gewohnten 
LOW/HIGH-Format die Adresse des 1. Bytes der Folgezeile (Byte 
N+2). Diese Adresse wird als Link bezeichnet. Auf den Link tolgt 
die von Ihnen gewahlte Zeilennummer, ebenfalls im LOW/HIGH-For- 
mat. Es sind dafur grundsatzlich 2 Bytes vorgesehen. Deswegen ist 
die desofteren getroffene Behauptung, man konne Speicherplatz 
durch Benutzung kleiner Programmzeilennummern sparen, nur teil- 
weise richtig, Man spart namlich nur dann etwas, wenn die Zeilen- 
nummern im Zeileninhalt vorkommen, z.B. in den Anweisungen mit 
GOTO, GOSUB, THEN und ON. Dort werden diese Nummern als ASCII- 
Zeichenketten gespeichert, jede Ziffer verbraucht dabei ein Byte. 
Nicht jedes Zeichen des Inhalts einer Programmzeile wird im 
ASCII-Code abgespeichert. Die Basic-Befehle, -Funktionen sowie 
die arithmetischen und Booleschen Operatoren werden als sogenann- 
ter Token, bestehend aus 1 Byte, abgelegt. 


END 80 ON 91 NEW A2 RND BB 
FOR 81 WAIT 92 TAB( A3 LOG BC 
NEXT 82 LOAD 93 TO A4 EXP BD 
DATA 83 SAVE 94 FN AS COS BE 
INPUT# 84 VERIFY 95 SPC A6 SIN BF 
INPUT 85 DEF 96 THEN A7 TAN co 
DIM 86 POKE 97 NOT A8 ATN 1 
READ 87 PRINT#H 98 STEP A9 PEEK c2 
LET 88 PRINT 99 AND AF LEN C3 
GOTO 89 CONT 9A OR BO STR$ C4 
RUN 8A LIST 9B SGN B4 VAL 65 
IF 8B CLR IC INT BS ASC c6 
RESTORE 8C CMD ID ABS B6 CHRS 67 
GOSUB 8D syS IE USR B7 LEFT$  C8 
RETURN 8E OPEN 9F FRE B8 RIGHTS C9I 
REM 8F CLOSE AO POS BI MIDS CA 
STOP 90 GET Al SOR BA GO CB 
+ AA = AB * AC / AD 
“ AE > B1 = B2 < BJ 


Bild 2.1.9: Basic-Token (in HEX) 


79 


2.1 Speicherorganisation 


In Bild 21.9 sind samtliche Basic-Token in HEX aufgeführt. Dort, 
wo also in einer Programmzeile eines dieser Zeichenzusammenset- 
zungen (außer innerhalb von '") auftaucht, bzw. die im Handbuch 
auf 5. 133 angegebenen Kurzel, werden diese durch den entspre- 
cherıden 1-Byte-Token ersetzt, 

Zur Kennzeichnung des Programmzeilenendes dient ein Byte mit dem 
Wert O (Byte N+1l in Bild 2.1.8). Ist die letzte Zeile erreicht, 
so zeigt zwar deren Link auf den scheinbaren Anfang der Folge- 
zeile. Dieser Anfang jedoch besteht aus 2 Nullen. Das Betriebssy- 
stem interpretiert darin das Ende des Programms. Bild 2.1.10 gibt 
diesen Sachverhalt wieder. 


Vektor #45,46 ---->| 
| 
v 
ı% 1 25 & I 4 15 as N | N+1 | N+2 | N+3 | N+4 ... 
| en ne ser en wre ur ee ehe re eu ee a SEEN un eu une en u u En Ten 
| Link zur | Zeilen- | Inhalt der | 0 | 0 | 0 | Varia- 
| Folgezeile| Nummer |Programmzeile| | | | blen 
| | 
| | 
a a >] 


Bild 2.1.10: Letzte Basic-Programmzeile 


Zur erganzenden Verdeutlichung wählen wir folgendes Programmbei- 
spiel: 


2 PRINT22 
4 PRINT44 
6 PRINT66 
8 PRINT88 


In einem VC-20 in GV ware das Programm in der in Bild 2.1.11 dar- 
gestellten Weise ab Adresse $1001 gespeichert (Inhalte in HEX). 
In $1001,1002 befindet sich der Vektor $1009, der auf die 2, Pro- 
grammzeile zeigt. Darauf folgt die Zeilennummer 2, der Token $99 
für den Befehl PRINT und schließlich die ASCII-Codes von "22", 
also $32,32. Bis zum Programmende ändert sich prinzipiell nichts. 
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Man kann das Betriebssystem ein wenig austricksen, was den Link- 
Mechanismus angeht, indem die Links "verbogen” werden. Wir nehmen 
beispielsweise mit den Inhalten der Zellen $1001,1009,1011 einen 
zyklischen Tausch vor, so daß diese hinterher die Werte $11,19,09 
enthalten. Der Link der 1. Zeile zeigt somit auf die 3. Zeile, 
der Link der 3. Zeile auf die 2, Zeile und der Link der 2. Zeile 
auf die 4. Zeile. Tatsachlich ergibt sich als Resultat dieser 
Aktion nach LIST die Ausgabe von! 


2 PRINT22 
6 PRINT66 
4 PRINT44 
8 PRINT88 


Allerdings bei RUN laßt sich das Betriebssystem in dieser Weise 
nicht betrügen. Die Zahlen 22,44,66,88 werden in der richtigen 
Reihenfolge am Bildschirm angezeigt. 


Adresse: 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 
00 01 02 03 04 05 06 07 08 09 OA OB OC OD OE OF 


Inhalt: 00 09 10 02 00 99 32 32 00 11 10 04 00 99 34 34 


Adresse: 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 
10: 11. 32 13 14 15: 16 17 18 19 1A 1B, IC 1D 1E IF 20 21 22 


Inhalt: 00 19 10 06 00 99 36 36 00 21 10 08 00 99 38 38 00 00 00 


Bild 2.1.11 


Zum Abschluß werde noch auf die Tatsache hingewiesen, daß (s. 
Bild 21.10) vom Betriebssystem aus der Vektor #45,46, also der 
Variablenanfang, auf die 1. Speicherzelle hinter den 2 Programm- 
endenullen ausgerichtet wird. Jedoch laßt sich dieser von Ihnen 
in der Weise verändern, daß Sie durch dessen Erhohung das Pro- 
gramm "aufblahen", Dies wirkt sich vor allem beim SAVEn aus, weil 
die SAVE-Routine alles das abspeichert, was zwischen den Vektoren 
VA und BA liegt. Auf diese Weise konnen die während eines Pro- 
gramms anfallenden Daten oder hinzugefügte Maschinenprogramme 
mitgeSAVEd werden, ohne daß dazu ein Filehandling notig ist. 
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EINE PROGRAMMZEILE MIT MEHR ALS 88 ZEICHEN ? 


Diese Frage wurde uns schon des ofteren gestellt. Was hat es da- 
mit auf sich? Es gibt zahlreiche Programmierer, die dadurch Bytes 
fur ein Programm einsparen wollen, daß sie mehrere Anweisungen in 
eine Programmzeile packen und durch ein "" voneinander trennen. 
Diese Methode ist allen von Ihnen bekannt und es versteht sich 
von selbst, daß dabei 4 Bytes pro zusätzlicher Anweisung einge- 
spart werden (der Link sowie die Zeilennummer von je 2 Bytes ent- 
fallen ja). Was jedoch nicht allen von Ihnen gelaufiy sein durf- 
te, ist die Tatsache, daß bei dieser Byte-Sparmethode in Verbin- 
dung mit der Verwendung der Anweisungs-Kürzel gemaß VC-20-Hand- 
buch S, 133 zwar die eingetippte Programmzeile nicht langer als 
88 Zeichen (= 4 Zeilen) wird, aber bei LIST-Aufruf diese sich 
plötzlich als eine Zeile mit mehr als 4 Zeilen entpuppt. 


Fuhren wir diesen Effekt einfach mit folgender Eingabe vor, die 
Sie bitte nachvollziehen: 


Se dar Sr ar Be A Jo Gelee ee Tele ar Ba DE er Bl Ara a Da N a Ta A ara de 


._ nn. 1.1. ee 


Potstetstst (Return) 


Diese Programmzeile besteht aus 86 eingetippten Zeichen, erreicht 
somit noch nicht einmal die erlaubte Grenze von 88 Zeichen, Sie 
werden sich aber wundern, wenn sie sich diese Zeile mittels LIST 
anschauen, Mit einer Lange von fast 12 Zeilen hat diese sich ganz 
schon aufgeblaht. Allerdings besteht sie jetzt nur scheinbar aus 
259 Zeichen. Denn die Anweisungen (in unserem Beispiel lauter 
PRINTs) werden als 1-Byte-Token (s.0.) abgespeichert. Diese Token 
werden bei LIST in die entsprechenden aus mehr als 1 Zeichen be- 
stehenden Anweisungen umgewandelt. 


Diesen Effekt zu verstehen kann fur Sie dann von Bedeutung sein, 
wenn Ihnen ein Programm-Listing in die Hande fällt, welches Pro- 
grammzeilen von mehr als 88 Zeichen Länge enthalt. So kam ja auch 
die Frage von so manchen auf: "Wie soll ich denn das eintippen? 
Das paßt ja gar nicht in die 4 Zeilen hinein." Um dieses Problem 
zu losen, wenden Sie einfach die gleiche Methode an wie der Pro- 
grammierer selbst, indem Sie ebenfalls die Anweisungs-Kurzel beim 
Eintippen benutzen, also z.B. anstatt "PRINT" das "?" eingeben. 
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2.2 VARIABLEN-TABELLE 


Haben Sie schon gewußt, daß der insgesamt verfügbare Namensraum 
im VC-20-Basic aus 6/31 Namen besteht? Dabei sagt man doch desof- 
teren, man sei durch die Basic-Vorschrift bezgl. der Namensgebung 
fur die Variablen und Felder arg eingeschrankt. Die Zahl 673 
setzt sich zusammen aus! 


- 962 Namen fur Funktionen 

- 1924 Namen fur Integer-Variablen und -Felder 

- 1923 Namen fur String-Variablen und -Felder 

- 1922 Namen fur Gleitkomma-Variablen und -Felder 


Wahrend der Erstellung eines Programms wird es Ihnen vielleicht 
auch manchmal so ergangen sein, daß Sie nicht mehr genau wußten, 
ob Sie die eine oder andere Variable bereits benutzt haben. Aus 
diesem Grund ist es zweckmäßig, sich per Tabelle wahrend des Pro- 
grammerstellungsprozesses (auch hinterher natürlich) standig da- 
ruber im Klaren sein zu konnen, welche Variable bzw. Funktion 
bzw. welches Feld mit welcher Bedeutung gebraucht werden, 


Die Tabelle in Bild 2.2.1 soll einen überblick über die Namens- 
vergabe schaffen. Am besten kopieren Sie sich dieses Bild und die 
Folgebilder mehrfach, damit Sie bei Bedarf immer welche parat ha- 
ben, Brauchen Sie z.B. die Variable MRS in Ihrem Programm, so su- 
chen Sie das 1. Namenszeichen "M" in der obersten Reihe. Von dort 
aus talıren Sie in der M-Spalte so lange nach unten, bis Sie zum 
Kreuzungspunkt der R-Reihe gelangen, Dort tragen Sie beispiels- 
weise eine laufende Nummer ein, auf die Sie in den ersten Spalten 
der Folgebilder 2.2.2 und 2.2.3 bezugnehmen, indem Sie dort wei- 
tere Angaben über Typ, Dimension, Bedeutung, Name etc. treffen 
konnen, Im Fall von MRS tragen Sie z.B. eine 1 in das entspre- 
chende Feld in Bild 2.2.1 ein. Die 1 übertragen Sie dann vorne 
oben ins Bild 2.2.2 und machen ein Kreuz in die 4, Spalte ($). 
Diese Tabelle kann zu jeder Zeit wahrend der Programmierung 
Aufschluß über den benotigter Speicherplatz geben. 


In den Feldern fur TI und ST befinden sich Fragezeichen, weil TI 
nur als TI% und ST nur als ST% und ST$ verfügbar sind. Für Namen 
mit nur einem Namenszeichen ist die 1. Reihe des Bildes 2.2.1 
vorgesehen. 
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Variablennamen-Belegungstabelle 


1; 


Bild 2.2. 
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Gleitkomma | Felder 
Nr. V FN % 3 | & % 8 DIM | 
| 





Bild 2.2.2: Variablentyp-Tabelle 





Bedeutung 








Bild 2.2.3: Variablenbedeutungs-Tabelle 
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2.3 BEQUEMES ZEILENLOSCHEN 


Das CLEAR SCREEN oder das fortlaufende WeiterPRINTen (Scrolling) 
ist oft keine elegante Losung dafur, daß man bei einem bestehen- 
dem Text oder einer Feldmaske auf dem Bildschirm nur eine be- 
stimmte Zeile leeren mochte, 


Es gibt zwei VC-20-Maschinensprache-Routinen, die von Basic aus 
mitbenutzbar sind: 


1. Eine ganze Zeile loschen 


Nehmen wir an, Sie wollen die 10. Zeile auf dem Bildschirm lee- 
ren, dann benutzen Sie im Programm oder im Direkt-Modus: 


POKE 781,9:SYS 60045 
In die Zelle #781, die ubrigens als X-Register dem Maschınen-Pro- 


gramm ab Adresse #60045 ubergeben wird, muß die Zeilennummer 
eingetragen werden (die Zeilen werden von 0 ab hochgezahlt), 


2. Eine Zeile teilweise loschen 


Nehmen wir weiterhin an, Sie wollen in der 15. Zeile die ersten 5 
Zeichenplätze loschen, dann ist folgende Eingabe erforderlich: 


POKE 781,14:POKE 782,4:5Y5 60047 


Bezgl. Adresse #781 gelten die unter 1. getroffenen Aussagen, In 
die Zelle #782 wird die Spaltennummer (diese werden ebenfalls von 
0 ab hochgezahlt), bis wohin geloscht werden soll, hineingePOKEd, 
die als Y-Register dem Maschinen-Programm ab Adresse #60047 uber- 
geben wird. 


Folgendes kleine Demo-Programm vermittelt Ihnen einen Eindruck 
von den Anwendungsmoglichkeiten der Routine 60047. 


10 FORI=1T0505:PRINTCHR$(18)" ";:NEXT 
20 FORI=0T021:POKE781 , I+1:POKE782,1:SYS60047:NEXT:WAIT198,1 
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2.A BEMERKUNGEN ZUM DATASSETTEN-FILEHANDLING 


Ko REM TEST-FiM 1 399 REM TEST-PGM 3 
1a OFEN. LEI 318 OPEHNI 
Ed INFUTA,B.C:PRIMTA;BIC 322 INPUT#1:A.R.G 
39 FRINT#1.A.B.C 330 INFUT#L.A,B.C 
42 FRINT#L,R,B.T 342 IMPUT#1:A.B,C 
Sa PRINT#1,A.B.C 358 FRINTA:B:C 
Sa CLÜSEL 3654 LLOSE1 
BR EHI 37@ END 
sa 388 : 
Ed REM TEST-PGM ZA 4dE REM TEST-FGM 4 
118 GFEHI 41c OFEHI 
120 IHMFUTRLSA 420 GET#1,E# FL=5T AND 84: IFLENCELI=ATHENdER 
134 TMFUT#L,B 438 FRINTASCEEF)::IFFL=ÜTHENAEG 
1464 INPUT#L.C 442 CLÜSEI 
150 FRINTA;B:C 454 END 
168 LLÖSEL 4: 
176 EHI sec REM TEST-Fom 5 
ad Ssıö ÖOFENI.1,1 
ze REM TEFT-FGM ZB S2@a INFUTA,B,C:PRINTA;B:C 
Ela OPEHI Sad PRINT#1.A 
22a INFUTHLSA, EB. 544 FRINT#L,E 
230 FRINTA:B:G 58 FRINTAL,L 
24a ALISEI 558 CLUSEI 
&Sd EHD Sr7d EMI 
Bild 2.4.1 


Dem besseren Verstandnis des Filehandling (Umgang mit Dateien) in 
Verbindung mit der Datassette werde dieses Kapitel gewidmet. Ge- 
hen wir gleich in medias res und starten das aus mehreren einzel- 
nen Tests bestehende Programm in Bild 2.4.1 mit RUN (Test-PGM 1). 
Wir werden daraufhin aufgefordert, RECORD & PLAY zu drucken und 
bald danach I Zahlen einzutippen. Als Eingabe wahlen wir die Zah- 


len 1,2,3. 


Nach Beendigung des Test-PGMs 1 (Zeile 70) spulen wir das Band 
zuruck zur Ausgangsposition und starten das Test-PGM 2A per RUN 
100. Mit Verwunderung werden wir sehen, daß hernach die Zeile 150 
die 3 identischen Zahlen 123 "auswirft", Das Test-PGM 2B fuhrt 


zum gleichen Ergebnis, 


Geben wir im Test-PGM 1 die Zahlen -1,-2,-3 ein, so erhalten wir 
in den Test-PGMen 2A und 2B sogar die Fehlermeldung "FILE DATA 
ERROR" und im Test-PGM 3 "STRING TOO LONG ERROR", 
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Die Eingabe -1,2,3 führt in 2A und 2B zur Ausgabe der 3 negativen 
Zahlen: -123,-123,-123 


Was ist geschehen? Des Ratsels Losung bringt das Test-PGM 4, wo- 
rin per GET#-Anweisung sämtliche gespeicherten Zeichen des Files 
einzeln gelesen und deren ASCII-Codes ausgegeben werden. Nach der 
zuletzt vorgenommenen File-Speicherung mittels PGM 1 ware die 
folgende Anzeige das Resultat des PGM 4: 


45 49 (13mal:) 32 50 (13mal:) 32 51 32 13 
45 49 (13mal:) 32 50 (13mal:) 32 51 32 13 
45 49 (13mal:) 32 50 (13mal:) 32 51 32 13 


Daraus ist zu erkennen, wie die PRINT#-Zeilen 30-50 des Test-PGMs 
1 arbeiten. Die Kommas zwischen A,B,C wirken namlich nicht als 
Separatoren in dem Sinne, daß an deren Stelle auf Band CR-Zeichen 
(#13) gespeichert werden, sondern lediglich mehrere Leerzeichen 
(#32) entsprechend der Tabulatorfunktion des Kommas bei den 
PRINT-Anweisungen, 


Wird hingegen per RUN 500 im Test-Programm 5 das Abspeichern des 
Files in der Weise vorgenommen, daß jede einzelne Zahl (z.B. wie- 
der -1,-2,-3) mit einer eigenen PRINT#-Anweisung kombiniert wird, 
dann liefert Test-PGM 2B das Ergebnis: -1,-2,-3 und Test-PGM 4 
die Anzeige der ASCII-Codes: 


45 49 32, 13:45: 50 3213-551 2% 


Die Schlußfolgerung obiger Experimente ist, daß zwar in einer IN- 
PUT#-Anweisung mehreren Variablen die von der Datassette kommen- 
den Werte zugewiesen werden konnen, wie dies Test-PGM 2B beweist 
(einzelne INPUT#-Anweisungen wie in PGM 2A sind natürlich auch 
moglich), jedoch nicht in einer PRINT#-Anweisung Werte mehrerer 
Variablen auf Band aufgezeichnet werden konnen. Mehrere in einer 
einzigen PRINT#-Anweisung abgespeicherte Werte werden nämlich 
nicht durch das CR-Zeichen voneinander getrennt und sind somit 
als voneinander unabhanige Werte nur durch Tricks wiedererkenn- 
bar. Mit anderen Worten mussen einzelne Variablen-Werte durch ei- 
gene PRINT#-Anweisungen abgespeichert werden. 
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2.5 WIE LANGE DAUERT EINE BEFEHLSAUSFÜHRUNG 


Normalerweise ist eine Antwort auf diese Frage dann nicht von so 
großer Bedeutung, wenn keine langeren Verarbeitungszeiten durch 
Schleifenlaufe entstehen. In vielen Fallen - denken wir nur ans 
Sortieren, Suchen und Berechnen - kommt man jedoch ohne Schlei- 
fenläaufe nicht aus. Deswegen ist es mitunter recht vorteilhaft zu 
wissen, wieviel Zeit die eine oder andere Anweisung verbraucht. 
Diese Kenntnis, gezielt eingesetzt, kann unter Umstanden Pro- 
grammablaufzeiten um 10er-Faktoren verkurzen. 


0 REM BEFEHLSAUSFUEHRUNGSDAUER 120 : 

60 TA=TI 130 A=X”2 

70 FOR X=1T01000::::::::NEXT 140 : 

80 T1=TI-TA 

100 TA=TI 120 : 

110 FOR X=1T01000 130 A=X*X 

120 : 140 : 

130 : 

140 : 120 % 

200 NEXT 130 A=X 

210 PRINT(TI-TA-T1)/60; "MSEC" 140 : 
Bild 2.5.1 Bild 2.5.2 


Im Programm gemaß Bild 2,5.1 dient Zeile 70 zur Kalibrierung. Es 
sollten so viele Doppelpunkte untergebracht werden, daß ein RUN 
dieses Programms nur noch zu einer Ablaufzeit unter 1/10 msec 
fuhrt. Die Zeilen 120-140 beinhalten die zu messende Anweisung 
oder auch Kombination von Anweisungen. In Bild 2.5.2 sind Meßbei- 
spiele angegeben. 


Die Zuweisung A=X”2 verbraucht 45.3 msec, Dagegen werden bei der 
Ausführung der mathematisch identischen 2. Zuweisung A=X#*X nur 
2.9 msec benotigt. Wenn wir zusatzlich berücksichtigen, daß sich 
beim 3. Test eine Zuweisungszeit von 1 msec ergibt, so erhalten 
wir für die Ausführung einer Quadrierung ein Netto-Verkurzungs- 
verhältnis von (45.3-1)/(2.9-1)=23.3. Ob eine Berechnung 1 Stunde 
oder i Tag benötigt, dürfte wohl ein großer Unterschied sein. 
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2.6 STRINGS BEI INPUT UND DATA 


Wahrscheinlich haben Sie auch hin und wieder die Fehlermeldungen 
"EXTRA IGNORED ERROR" oder "REDO FROM START" erhalten, wenn Sie 
per INPUT oder DATA einer String-Variablen eine Zeichenkette zu- 
weisen wollten, Fehlermeldungen sind vermeidbar, wenn hierbei ei- 
nige "Spielregeln" beachtet werden, die allerdings weder im VC- 
20-Begleithandbuch noch im Programmierhandbuch stehen. 


Mittels des Einzeiler-Programms: 
10 INPUT ES,F$:PRINT ES:PRINT FS:RUN 
lassen sich die folgenden Regeln sofort uberprufen: 


r) Strings mussen nur dann in Anfuhrungsstrichen stehen, wenn 
Kommata oder Doppelpunkte darin enthalten sind. Ein Komma 
außerhalb von Anfuhrungsstrichen wirkt namlich als Trennzei- 
chen zwischen Strings, ein Doppelpunkt als Schlußzeichen, so 
daß alle Zeichen hinter dem Doppelpunkt verworfen werden. 


Beispiele: Eingabe in obigem Progranm Ausgabe 
TEST ‚WORTE TEST 
WORTE 
"TEST1,TEST2:" ‚ "WORTE" TEST1 ‚TEST2: 
WORTE 


2) Der letzte einzugebende nicht in Anfuhrungsstrichen stehende 
String darf nicht durch ein Komma oder Doppelpunkt abge- 
schlossen werden. 


Beispiele: Eingabe in obigem Programm Ausgabe 
TEST ‚WORTE, ?EXTRA IGNORED 
TEST 
WORTE 
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3) Ein String gilt als in Anfuhrungsstrichen stehend nur dann, 
wenn die Eingabe des Strings durch einen Anfuhrungsstrich 
eingeleitet wird. Vor dem nachfolgenden Trennzeichen "," 
(gilt nicht fur den als letzten einzugebenden String) muß 
abermals ein Anfuhrungsstrich stehen. Dieser kann am Ende 
der letzten oder einzigen Eingabe entfallen. Mit anderen 
Worten zählen Anfuhrungsstriche als String-Bestandteil, wenn 
eine String-Eingabe nicht mit einem Anfuhrungsstrich begon- 


nen wird. 
Beispiele: Eingabe in obigem Programm Ausgabe 
TEST1 "TEST2, "WORTE TEST1 "TEST2 
WORTE 


4) Leerzeichen vor dem ersten Zeichen des als ersten einzuge- 
benden Strings zahlen nur dann zum String, wenn er in Anfuh- 
rungsstrichen steht. Das gleiche gilt sinngemaß fur Leerzei- 
chen hinter dem als letzten einzugebenden String. 


Beispiele: Eingabe in obigem Programm Ausgabe 
___TEST,__WORTE TEST 
WORTE 
" TEST" ‚WORTE TEST 
WORTE 
("__" soll bedeuten: Eingabe von zwei Leerzeichen) 


Das kleine Programm: 
10 READ ES,F$:PRINT ES$S:PRINT F$:DATA (String1),(String2) 


wird Ihnen bestatigen, daß die obigen Regeln in gleicher Weise 
fur die Stringzuweisung in Verbindung mit DATA und READ gelten. 
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2.7 TASTATURABFRAGE UND -VERRIEGELUNG 


ABFRAGE DER FUNKTIONSTASTEN 


In Leserzuschriften ist schon oft danach gefragt worden, wie man 
in einem Programm die Funktionstasten FI-F8 abfragen kann. Es ist 
eigentlich recht einfach und verwunderlich, daß im VC-20-Handbuch 
nichts daruber steht. Eines steht allerdings schon drin, woraus 
man eigentlich den Abfragealgorithmus ableiten kann. Der ASCII- 
Tabelle auf den Seiten 145-147 kann namlich entnommen werden, daß 
jeder Funktionstasteneingabe ein bestimmter ASCII-Code zugeordnet 
ist (Bild 2.7.0. Das Programm in Bild 2,7.2 macht sich diese Zu- 
ordnung insofern zunutze, als per Funktion ASC der ASCII-Code der 


Taste ASCII-Code (#) Taste ASCII-Code (#) 
Fi 133 F2 137 
F3 134 FA 138 
F5 135 F6 1.39 
F7 136 F8 140 
Bild 2.7.1 


10 GET ES:IF E$="" THEN 10 

20 E=ASC(ES):IF E<133 OR E>140 THEN 10 
30 ON 141-E GOSUB 108,106,104,102,107,105,103,101 
40 REM PROGRAMM-FORTSETZUNG 

50 GOTO 10 

101 PRINT "F1":RETURN 

102 PRINT "F2":RETURN 

103 PRINT "F3":RETURN 

104 PRINT "F4" RETURN 

105 PRINT "F5": RETURN 

106 PRINT "F6" RETURN 

107 PRINT "F7": RETURN 

108 PRINT "F8":RETURN 


Bild 2.2.2 
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Funktionstasteneingabe ermittelt wird und aus diesem Wert der 
entsprechende ON-GOSUB-Sprungbefehl errechnet wird. Natürlich 
können die Zeilennummern 101-108 nach Belieben geändert werden, 
nur ist dabei darauf zu achten, daß die Zuordnung zu den Funk- 
tions-Unterprogrammen erhalten bleibt. Auch ist das ON-GOSUB 
durch ON-GOTO ersetzbar, wenn die RETURNs in GOTO-Sprünge umge- 
wandelt werden. ü 


Unter Umständen benotigen Sie die Funktionstasteneingabe in den- 
jenigen Anwendungsfaällen, bei denen das Drucken einer Funktions- 
taste nur dann eine Wirkung auf den Programmablauf haben soll, 
wenn Sie sich in einem bestimmten Programmteil "aufhalten". Mit 
anderen Worten soll das Drucken einer Funktionstaste nicht zwi- 
schengespeichert werden. Bei Spielen wird diese Eigenschaft oft 
verlangt. Da sich die Funktionen GET und INPUT aber auch die im 
Tastaturpuffer zwischengespeicherten Zeichen holen, wird dies 
einfach durch die zusatzliche Zeile: 5 POKE 198,0 verhindert. 


Diese Methode versagt jedoch dann, wenn der Zustand der gedruck- 
ten Taste im Programm berucksichtigt werden soll. Wenn namlich im 
oben beschriebenen Algorithmus die Funktionstaste im gedruckten 
Zustand verbleibt, dann bleibt auch der Tastaturpuffer konstant. 
leer, so daß keine Reaktion im Programm erfolgen kann. Fur die 
Behandlung dieses Falles gibt es noch eine weitere Methode, die 
im Anhang A,5 nachzulesen ist (Tabelle A.5.9. Mit ihr ist es 
moglich, jede einzelne Taste auf den Zustand "Gedrückt" oder "Un- 
gedruckt" zu uberprufen, Sie ist zusatzlich mit der Abfrage der 
Speicherzelle #653 (s, Anhang A,3) koppelbar, so daß jede der 8 
Kombinationsmoglichkeiten der gedruckten Tasten SHIFT, CBM und 
CTRL in Verbindung mit der jeweiligen Funktionstaste unterscheid- 
bar werden. Auf diese Weise gelangen Sie zu insgesamt 8%4=32 an- 
statt 8 Funktions-"Tasten", 


ABFRAGE DER TASTATUR 
Im Prinzip konnen Sie hierbei genauso verfahren wie bei der Ab- 
frage der Funktionstasten, indem Sie das eingegebene Zeichen un- 


tersuchen und dann entsprechend im Programm verzweigen, 


Das Programm in Bild 2.7.3 verdeutlicht dies. Dort, wo Vergleiche 
mit darstellbaren Zeichen moglich sind, sollte gemaß Zeile 30 
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bzw. 40 verfahren werden, Bei Steuertasten wie CURSOR RIGHT oder 
DELETE kann ES jedoch nur mit mittels CHR$ erzeugten Strings ver- 
glichen werden. Es geht aber auch in der Weise, wie es in den 
Zeilen 50-60 gezeigt wird. 


10 GET’ E$:IF E$="" THEN 10 

20 E=ASC(E$) 

30 IF E$="1" THEN GOSUB 100 

40 IF E$="A" THEN GOSUB 110 

50 IF E=148 THEN GOSUB 120 

60 IF E=13 THEN GOSUB 130 

70 GOTO 10:REM ODER PROGRAMM-FORTSETZUNG 
100 PRINT "1":RETURN 

110 PRINT "A":RETURN 

120 PRINT "DELETE-TASTE" :RETURN 
130 PRINT "RETURN-TASTE" :RETURN 


Bild: 2.7.3 


Auch hier konnte es, wie es bei den Funktionstasten schon be- 
schrieben worden ist, vonnoten sein, erst dann eine Eingabe im 
Programm zu berücksichtigen, wenn die jeweilig geforderte Taste 
auch wirklich gedruckt wird. Es gelten hierbei die bereits oben 
getroffenen Ausführungen, Ebenso gilt hier der Verweis auf die 
Tabelle A.5.9 im Anhang A.S, 


TASTATUR VERRIEGELN 

Zwecks Verhinderung von Fehleingaben, ungewollten Programmunter- 
brechungen, Softwareschutz (s. Kap. 6.8) etc. kann es mitunter 
recht vorteilhaft sein, eine Tastatur-Totalsperre vorzunehmen. 


Folgendermaßen wird’s gemacht: 


Verriegelung: EIN AUS 
POKE 37154,0 POKE 37154 ,255 


Die Speicherzelle #37154 ist Bestandteil desjenigen VIA-Bau- 
steins, der zur Tastaturabfrage herangezogen wird. 
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2.8 BEFEHLSEINGABE PER TASTENDRUCK 


Daß man sich beim Eintippen eines Programms das Ausschreiben der 
mitunter recht langen Befehlsworte sparen kann, durfte hinrei- 
chend bekannt sein. Es gibt ja die Anweisungs-Kürzel auf 5. 133 
im VC-20-Handbuch. Am meisten hat sich da wohl das "?" durchge- 
setzt, welches die Eingabe der Anweisung PRINT ersetzt. 


Noch eleganter ware die Eingabe von Anweisungen jedoch, wenn dies 
auf Tastendruck geschehen konnte. Die Konkurrenten ZX 81 sowie ZX 
Spectrum konnen das ja auch, warum also nicht der VC-20? Doch, er 
kann| Mit dem Programm BEFEHL-TASTEN in Bild 2,81 rufen Sie die 
gebrauchlichsten Befehls- und Funktionsworte auf per: 


SHIFT + Buchstabe 


18 REM BEFEHL-TASTEN 
28 REM SHIFT+BUCHSTABE=BEFEHL 
30 L=89 
48 FRINTCHR$(147>" ABLEGEN DES M-POM:" 
sa PRINT:PRINT:PRINT"E = A ENDE Yon BASIC-"SPCi4) "RAM-BERE LÜN" 
68 PRINT: PRINT PRINT" ZAHL? GEMUENSCHTE AN=-"SPC«7)"ANFANGSADRESSE"SPLCB>" CDEZIMA 
L> vom 
78 PRINTSPG« 7?) "PROGRAMM" PRINT PRINT 
80 INPUTAF:SD=VAL<AF) : IFSDTHENIEK 
90 IFA&<>"E" THEN4O 
108 EM=PEEK(SSI+2S6HFEEK (56) : AD=EM-L  ER=PEEK (64) +LIGWPEEK (644) 
130 POKEEM-3, 197 : POKEEM-2, 296 : POKEEM-1, 196  AU=AD-7 : UOSLIBZSR 
148 POKEEM-S, AL: POKEEM-4, AH% 
150 G0SUB2S8 : POKESS, AL: POKES6, AH% : AL=FRE(9: SD=AD 
160 GOSUBZEE 
1780 FORI=SDTOSD+L-1:READA$ 
188 IFA$<"H" THENA=YAL CAS) CH=CH+A:BOTOZ1O 
190 IFA$>"H" THENAD=YALCRIOHTECAS,LENSAF)I-1)3  ÜH=CH+AD  AD=AD+SD  BUSUBZERA  A=AL DOT 
0218 
200 A=AH% 
218 PÜKEI: A: IFFEEK(II=ATHENNEXT :G0T0238 
228 PRINT: PRINT: PRINT"ROM-BEREICH !" PRINT"ANFANGSADRESSE AENDERN!" 'STÜF 
230 IFCH<>11873THENPRINT :PRINT"PROGRAMM IST FEHLER- HAFT EINGEGEBEN | 11": STOP 
248 SYSSD: NEL 
250 AHX=AD/’236 : AL=AD-2SCHAHR RETURN 
268 PRINTCHREFC 147) "M-POM-AUFRUF MIT!" PRINT 
278 PRINTCHRE< 18) "SYS"SDCHREG146) : PRINT : RETURN 
188 162, L12, 160,H, 120, 142, 28,3, 148, 21,3,96, 165, 215. 197,169 
1818 DATA288, 3,76; 191,234, 133, 1693, 201. 199, 144, 247,201, 219, 176,243,56 
1820 DATA233, 193; 178, 189,L63,H, 168, 162,8, 134, 198, 169, 20, 72,41,127 
10830 DATA23®, 198, 157,119,2,104,48, 218, 232, 185,158, 192. 200, 208,238 
, ’ ,96, ,3, 133, 65, 28, 35,51, 111, 249,6, 124,92 
2018 DATA217,2493, 224, 151.56, 228, 19,28.44,121 








Bild 2.8.1 
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Das Maschinenprogramm in BEFEHL-TASTEN wird je nach Wunsch in ei- 
nem beliebigen Speicherbereich generiert. Wenn Sie es pauschal am 
RAM-Ende ablegen lassen, wird es gegen überschreiben geschützt 
und sie konnen es auch dann aufrufen, wenn Sie beliebige andere 
Programme im Arbeitsspeicher haben, Weiterhin ist es koppelbar 
mit von Ihnen frei definierbaren Befehlen (s. Kap. 41). 


BEDIENUNGSHINWEISE 


BEFEHL-TASTEN enthalt ein Maschinen-Programm und ist ein Basic- 
Loader, der vom Prinzip her der gleiche wie der im Kapitel 5.2 
beschriebene ist, Detailinformation bezgl. diesem kann dort in 
Erfahrung gebracht werden. Der Basic-Loader wird normal mit RUN 
gestartet. Sie werden gefragt, ab welcher Adresse (dezimal) das 
M-PGM generiert werden soll. Bei Eingabe von "E" wird es ans Ba- 
sic-RAM-Ende gespeichert, wobei eventuell schon andere vorhandene 
M-PGMe in keinster Weise angetastet werden. 


Nachdem Sie sich zum Beispiel für letztere Eingabe-Moglichkeit 
entschieden haben, wurden Sie bei einem VC-20 in GV die Anzeige 
erhalten: 

M-PGM-AUFRUF MIT: 

sYyS 7584 


Die SYS-Adresse schreiben Sie sich am besten irgendwo auf. Die 
"Befehl-Tasten" sind jetzt aktiviert und Sie konnen per SHIFT + 
Buchstabe den aus Bild 2.8.2 abzulesenden Befehl auf den Bild- 
schirm zaubern, Sie werden schnell Routine mit den am Anfang un- 
gewohnten Zuordnungen entwickelt haben, Außerdem stimmen in gut 
der Halfte der Falle die Buchstaben mit den Anfangsbuchstaben der 
Anweisungen uberein, 


A ASC F FOR K GOSUB P POKE U RETURN 
B CLOSE G GET L LIST Q PEEK V VAL 
C CHRS H STOP M MIDS R RIGHTS W DATA 
D PRINT# I INPUT N NEXT S SIRS X READ 
E LEFTS J _GOTO 0 OPEN T THEN Y RESTORE 
z SYS 
Bild. 2,8,.2 
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zead LI #FAC Ik@-Vektor auf F2BAl setzen 
zuRaz LOr #E208 
zua4 SEI 
zaa5 STE FA314 
zaRE 5Tr Fa31S 
ZIEH KIN... - x in nn nn nn en in ne Fire * r er ET fair 
zaar Lin €07 Letztes ausgesebenes Zeichen 
ZABE GMF £A3 Weraleich mit Serettetem Zeichen 
ZUlE BNE FIA15 Sprung, wern Zeichen wechselt 
za12 IMF £EHBF Interrurtroutinen-Imleitun®sernde 
2013 STAA SA3 _ _  _ Ausgegebenes Zeichen retten 
217 CHF HFC 
2219 RC gEO1lE "Filter" fuer BeShHlFTete Buchstaben 
2u1E CHF #FDE 
zeıD BCS 42012 _ RE TE: 
auIF SEE T 
zB SBE HELL 
zuzz TR er ‚#$Cl_ abziehen => A=dıl. Be=ül., 
2023 "Lo zau3 u  Öffset fuer Befehlstabelle 
Za3s TAT .. 
zd27 LOK HERE Tastaturfuffer initialısieren 
2023 ETR FC6 
2uz@B LU ##14 _  __ _ DELETE = 1.Zeichen im Tastaturfufter 
za20 FHH Zeichen retten 
zazE AND HEFF Bit 7, falls vorhanden, entternmen 
zuaa ING E56 
2u32 STA_EIE7 7.8 Zeichen im Tastaturpuffer akle®er 
235 PLA 2.0.7 Merettetes Zeichen holen 
2aan BMI FEALE fertia». wenn Bit 7 9esetrt 
2a INK Index % erhoenen 
2a39 LIA SLBBE. Tr Befehlszeichen holen 
2Rat IM Index 'T erhoehen 
: IL EHE +20) Sprung: immer 
2daF E7 aa EA 58 EE ASC CLOSE EHRE FRINT# LEFT$ 
zu44 03 85 41 14 83 FÜR GET STOP IMPUT 501 
zu49 33 6F FF 6 7 GOSUB LIST MIT NEA#T ÜFEH 
2u4E 35 IU# F3 ER 97 FÜKE PEEK RIGHTE STR#F THISH 
2R93 38 E4 KR IT EC RETURN WAL Late REHL RESIÜRE 
2us8 79 Sr 

Bild 2.8.3 


PROGRAMM-EINZELHEITEN 


1.) Name: BEFEHL-TASTEN 
2.) Ausbaustufe: beliebig 
3.) Art des PGMs: Basic-Loader 
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6. 


= 


_ 


Bw 


—_ 


Anzahl der Bytes 
des Basic-Loaders: 1168 
des M-PGMs: 89 


Benutzte Variablen: s. Kap. 5.2 


Listings 
des Basic-Loaders: Bild 2.8.1 
des M-PGMs; Bild 2.8.3 


Erlauterungen zum Basic-Loader werden in Kap. 5.2 gegeben und 
zum M-PGM implizit im Listing (Bild 2.8.3). 
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3 


Abspeichern und Laden 


3.1 Kassettenpuffer 


3.1 DER KASSETTENPUFFER 


Der Kassettenpuffer ist ein 192 Byte großer vom Betriebssystem 
vor dem überschreiben geschutzter RAM-Bereich, der fur alle Kas- 
setten-Operationen benutzt wird. In der Einschaltroutine (RESET) 
des VC-20 wird die Anfangsadresse des Kassettenpuffers auf $033IC 
= #828 festgelegt und in die Zero-Page-Adressen $B2,B3 = #178,179 
geschrieben. Durch Andern der Adressen SB2,B3 kann die Position 
des Kassettenpuffers innerhalb des RAM-Bereichs verschoben wer- 
den. 


Als Puffer, also Zwischenspeicher fur Daten, wird dieser Bereich 
allerdings nur bei PRINT#-, GET#- und INPUT#-Anweisungen benutzt, 
sofern sich diese auf die Band-Kassette beziehen, In allen ande- 
ren Fallen (SAVE, LOAD, OPEN) enhalt der Kassettenpuffer den Ta- 
pe-Header (s. Kap. 3.2) - dem fast schon zwanghaft erscheinendem 
uübersetzungstrieb schließen wir uns lieber nıcht an, denn mit ei- 
nem Versuch wıe "Band-Kopfdaten” in diesem Fall wird Ihnen, ver- 
ehrte Leser, nicht besonders gedient sein, oder nur insofern, als 
wir Ihnen ein erfrıschendes Schmunzeln entlocken konnten. 


In der Funktion als Puffer wird bei einer PRINT#-Anweisung das 
auszugebende Zeichen im Kassettenpuffer zwischengespeichert. Erst 
wenn dieser mit 192 Zeichen gefullt ist oder die CLOSE-Anweisung 
gegeben wird, wird ein Daten-Block auf die Kassette geSAVEd. Im 
umgekehrten Fall, also bei einer INPUT#- oder GET#-Anweisung wer- 
den 192 Zeichen in den Kassettenpuffer geladen und von dort aus 
einer Variablen zur Weiterverarbeitung ubergeben. Erst wenn alle 
Zeichen ausgelesen sind, wird der nachste Datenblock geladen, 


Der Kassettenpuffer ist außerdem ein Bereich, in dem sehr gerne 
kleine Maschinensprache-Routinen abgelegt werden (s. Kap. 5.2). 
Diese konnen zusammen mit dem File-Namen in den Kassettenpuffer 
geladen, oder im B-PGM mithilfe eines Basic-Loaders dorthin ge- 
POKEd werden (s. Kap. 6.8 "Softwareschutz"), 
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3.2 TAPE-HEADER 


Der Tape-Header steht als Vorspann vor jedem PGM oder Daten-File 
auf der Kassette, Er ist 192 Bytes lang und enthalt alle Angaben 
uber das folgende PGM. 


Diese Angaben sind: 
1. Das File-Kennzeichen 


Dieses Kennzeichen fur den Typ des folgenden PGMs steht im 1. 
Byte des Tape-Headers und ist abhangig von der Sekundar-Adres- 
se im SAVE-Befehl. Die Bedeutung des File-Kennzeichen in Ab- 
hängigkeit von der Sekundar-Adresse konnen Sie dem Bild 3.2.1 
entnehmen. 


Sek.-Adr. | File-Kennz. 


0 (ohne) Basic -PGM 
1 
2 
3 


Maschinenspr.-PGM 
EOT = Bandende -Kennzeichen (End of Tape) 








Basic-PGM mit EOT 
Maschinenspr.- PGM mit EOT 





Bild 3.2.1: File-Kennzeichen 


2. Die Lange des PGMs: 


Die Bytes 2-5 des Tape-Headers enthalten die Adressen, zwi- 
schen denen das PGM stand, als es geSAVEd wurde, Die Anfangs- 
adresse steht in den Bytes 2 und 3, die Endadresse in den By- 
tes 4 und 5 (in der Reihenfolge: L,H). 
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3. Der PGM-Name: 


3.2 Tape-Header 


Die Bytes 6-192 des Tape-Headers enthalten den File-Namen. Er 
darf bis zu 187 Zeichen lang sein, wovon bei LOAD aber nur 16 
Zeichen dargestellt werden. 


Der LOAD-Befehl liest den Tape-Header in den Kassettenpuffer und 
vergleicht den File-Namen mit dem Namen im LOAD-Befehl. Anschlie- 
ßend wird, abhangig vom File-Kennzeichen, das PGM in den Arbeits- 


speicher geladen, 


Anhand folgender Beispiele soll das Zustandekommen des File-Kenn- 
zeichens und dessen Bedeutung etwas naher beschrieben werden. 


BEISPIELE: 


SAVE "TEST" ‚1,0 


SAVE "TEST1"”,1,1 


SAVE "TEST2" ‚1,2 


Ein Basic-PGM wir unter dem Namen "TEST" auf 
Kassette geSAVEd, das File-Kennzeichen ist 1. 
Da beide Werte, die Gerätenummer 1 sowie die 
Sekundar-Adresse 0, Default-Werte sind, konnen 
sie in diesem Fall auch weggelassen werden. 


Ein PGM, dessen Anfangs- und Endadresse in den 
Zero-Page-Adressen S2B-2E stehen, wird unter 
dem Namen "Test1" auf Kassette geSAVEd, das 
File-Kennzeichen ist 3, 

Ein auf diese Weise geSAVEtes PGM wird mit dem 
LOAD-Befehl immer an die Adresse geladen, die 
im TAPE-Header steht (absolutes Laden), d.h.:! 
PGMe die ab Adresse 51200 (#4608) standen, wer- 
den immer nach Adresse $1200 geladen, egal, ob 
der VC-20 in der Grundversion oder mit einer 
Erweiterung (3K oder 8K) betrieben wird, oder 
wie sonst die Vektoren $2B,2C und $2D,2E ste- 
hen, 


Ein B-PGM wird unter dem Namen ."Test2" auf Kas- 
sette geSAVEd, das File-Kennzeichen ist 1. Nach 
dem PGM wird ein Bandende-Kennzeichen geSAVEd. 
Die Hinweise bezüglich des Bandende-Kennzeichen 
im VC-20-Handbuch sind falsch. 
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Wenn ein PGM oder eine Datei geladen werden soll und der VC-20 
ein Bandende-Kennzeichen liest, so wird der Suchvorgang abgebro- 
chen und die Fehlermeldung "DEVICE NOT PRESENT" ausgegeben (lei- 
der nicht "FILE NOT FOUND"), 


Der Befehl LOAD "TEST" veranlaßt den VC-20, nach einem PGM mit. 
dem Namen "TEST" zu suchen und dieses zu laden. Es wird aber je- 
des PGM geladen, dessen Name mit "TEST" beginnt, also auch 
"TEST1", "TESTPGM" usw. Man muß das beachten, wenn eine Kassette 
nach einem bestimmten PGM oder einer Datei durchsucht werden 
soll. 


0 - B-PGM 
1 = M-PGM 
O= ohne EOT 
1= mit EOT 


Bits Nr. 2-7 sind ohne Bedeutung 


Bild 3.2.2: Sekundaradresse 


Alles, was hier uber den SAVE- bzw. LOAD-Befehl geschrieben wur- 
de, gilt sinngemaß auch fur die OPEN-Anweisung. 
Ausnahmen; 

Sekundar-Adresse Bedeutung 


0 Datei lesen 

Datei schreiben 

Datei schreiben und nach der 
CLOSE-Anweisung ein Bandende- 
Kennzeichen speichern 
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Das File-Kennzeichen fur eine Datei ist 4, Immer wenn nach dem 
LOAD-Befehl ein Tape-Header gefunden wird, dessen File-Kennzei- 
chen eine 4 ist, wird "FOUND (Name)" ausgegeben, aber das File 
nicht geladen, 
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Bild 3.2.2 zeigt noch einmal die bitweise Auswertung der Sekun- 
dar-Adresse bei SAVE-Befehlen. 


ubrigens, LOAD ""1,1 ladt ein PGM an diejenige Adresse, die im 
Tape-Header steht, egal, ob das File-Kennzeichen 1 oder 3 ist 
(absolutes Laden). Diese Tatsache kommt also dem Fall gleich, daß 
ein PGM mit SAVE "(Name)",1,1 abgespeichert worden ist und ein- 
fach mit LOAD (also ohne zusatzliche Adressen) geladen wird. 


Bei Floppys ware zusatzlich zu beachten, daß ein einfaches LOAD 
"(Name)",8 nicht ausreicht, um ein PGM absolut zu laden. Auch in 
diesem Fall ist die Sekundaradresse 1 zu verwenden: LOAD 
"(Name)" ,8,1. 


Das folgende PGM ist nach den Beschreibungen dieses und des Kapi- 
tels 3.1 "Der Kassettenpuffer" geschrieben worden. Ein PGM-Be- 
schreibung ist daher uberflussig, 


Laden Sie das PGM (s. Bild 3.2.3), legen Sie eine beliebige Kas- 
sette in Ihre Datassette und starten Sie das PGM mit RUN. Als Er- 
gebnis erhalten Sie auf dem Bildschirm ein Inhaltsverzeichnis Ih- 
rer Kassette, das neben dem PGM-Namen auch den PGM-Typ, dessen 
Lange und bei M-PGMen auch deren Anfangsadressen enthalt, 


REM TAFE-HERDER: 

FEINT"T' REM ELFR-HÖME 

Z=#2+1:FEM FEM-HLUMMER 

ÖFEH1.1.E: REM THAPE-HEADER LESEH 
E 'EEM FILE-TYF 

IFT= LTHENT$="ErS 15 -PGM' 
IFT=3THENHTF="MASCH. -FGM" 

IrTe 4THENTE&="DATEN- un 


ra 
Zi 









ee ee 
4: 
# 
m 
ım 
ee 
_ 
n- 












WERNER EEE RE Zur] 


in Bi) sd 


1 ee 
(be) 
be ui 


= 


Dr 


DER Zr Ze 5 


He a "FORT Lıle1® 
HE=SHE+CHRECPEEKTDD FEM FILE-HNAME 
HET 

FRINT"EIN" REM Z#HCRSR DH 
FRTINTZ".FENGREAHMM" 

9 FRIHNT"TTF "TE 

A IFTZ>4THENFRIHT"LHEHNGE NMELFFBRTE" 
IFT=3THEHFRIHT"RHF.ADR. "HM 
FFIHT"HFIME : "SH$ 

za LLOSELGOTOEE 


— 
m 15 


er 


Bild 3.2.3 
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3.3 LADEN/SPEICHERN NICHT IMMER MIT LOAD/SAVE 


In den VC-20-Kreisen hat es sich schon langst herumgesprochen: 
mit LOAD und SAVE kommt man desofteren beim Laden und Abspeichern 
nicht aus, Vor allem gibt es dabei mit der Datassette Ärger, wes- 
wegen im weiteren nur auf die Probleme bezuglich dieser eingegan- 
gen wird. Das hier Gesagte kann jedoch mit einigen Zusätzen (z.B. 
Geratenummer 8, etc.) ebenso auf die VC-20-Floppy-Bedienung uber- 
tragen werden. 


In vielen Fallen tritt ein SAVE-Problem bei denjenigen GV-Pro- 
grammen auf, die den Arbeitsspeicher bis zum Speicherplatz-"Rand" 
beanspruchen, Das sind diejenigen Programme, die genau 3583 Bytes 
lang sind und im Bereich $1001-1DFF bzw. #4097-7679 liegen. Zwar 
ist es hierbei moglich, sie einfach mit SAVE ohne Namensgebung 
abzuspeichern. Was macht man jedoch, wenn diese mit Namen geSAVEd 
werden sollen. Folgender Trick hilft in diesen Fallen: 


- Leeren Sie den Bildschirm mit SHIFT + CLEAR. 


- Fahren Sie mit dem Cursor zur Mitte des Bildschirms (auf eine 
Zeile mehr oder weniger kommt es hierbei nicht an), 


- Speichern Sie das Programm mit folgender Zeile ab: 
POKE 55,55:5AVE "(Name)" (Return) 


Mit POKE 55,55 blahen Sie namlich Ihren GV-Arbeitsspeicherbereich 
um 55 weitere Bytes auf, die ihrerseits jedoch im oberen Bild- 
schirmbereich liegen, Damit Ihre Eingabe nicht mit diesen Spei- 
cherzellen ins "Gerangel" kommt, muß sie weiter unten im Bild- 
schirm vorgenommen werden. 


Dies war ein Beispiel fur ein SAVE-Problem. Ein typisches Lade- 
problem ist folgendes: nehmen wir an ein Programm "lauft" nur in- 
nerhalb eines bestimmten Speicherbereichs Ihres Rechners - die im 
Programm verwendete Zeilennummer hat nichts mit der Position des 
Programms im Speicher zu tun! -, dann wird diesem Fall durch die 
anfanglich vorgegebene Festlegung des Arbeitsspeichers seitens 
des VC-20-Betriebssystems (s. Kap. 21) wohl kaum Rechnung getra- 
gen. Es ist somit notwendig, den Arbeitsspeicher zu versetzen. Im 
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Kapitel 2.1 wird dies eingehend erlautert. Hier nur ein Beispiel: 
wenn das Programm ab $2001=#8193 laufen soll und sie es dorthin 
laden wollen, dann geht das so: 


POKE 44,32:POKE 8192,0:NEW und danach: LOAD 


Schwierigkeiten entstehen oft auch beim Laden und Abspeichern von 
Maschinenprogrammen, insbesondere von Modulprogrammen (s. Kap, 
6.5). Das folgende Verfahren hat sich fur die meisten Falle als 
annehmbar und vor allen Dingen als funktionsfahig erwiesen: 


1. Maschinenprogramme abspeichern 


Zu allererst muß der genaue "Standort" des Programms und dessen 
Lange bekannt sein. Gehen wir von folgendem Beispiel aus: wir 
nehmen an, daß sich im Bereich $A000-BFFF ein Spielprogramm be- 
findet, das somit eine Lange von 8192 Bytes hat. Mit der Dassette 
gibt es keine Moglichkeit (jedenfalls haben wir bis heute keine 
erfahren) ein solches Programm direkt zu SAVEn, weil das VC-20- 
Betriebssystem hierbei einen "Riegel" vorschiebt (komischerweise 
ist das bei der Floppy nicht so). Das Programm muß also erst in 
einen SAVEbaren Speicherbereich ubertragen werden. Sie konnen zum 
Beispiel das Programm VC-TRANSFER/COMPARE/FILL aus Kapitel 5.4 zu 
diesem Zweck einsetzen. Im weiteren gehen wir davon aus, daß es 
nach Übertragung im Bereich $S1EO0-3DFF bzw. #7680-15871 liegt. Da 
wir von Kapitel 2.1 her wissen, daß beim SAVEn alles zwischen dem 
Basic-Anfang (Vektor #43,44) und dem Variablen-Anfang (Vektor 
#45,46) abgespeichert wird, ist die folgende Eingabe wohl die lo- 
gische Konsequenz! 


POKE 43,0:POKE 44,30:POKE 45,0:POKE 46,62:CLR:SAVE "(Name),1,1" 


Die Erklarung fur die letzten Zeichen "1,1" entnehmen Sie bitte 
dem vorigen Kapitel 32. So viel sei aber hier gesagt. Es wird 
dadurch das File-Kennzeichen 3 auf Band gespeichert, daß vor al- 
lem beim Laden des Programms wichtig ist. Das Betriebssystem 
"weiß” dann namlich, daß kein Basic-Programm vorliegt und rechnet 
deswegen auch nicht die Links (s. Kap. 2.1) um, 


Wie Sie in der letztgenannten Eingabe unschwer erkennen konnen, 
handelt es sich bei den POKE-Werten von #43,44 sowie #45,46 um 
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die LOW/HIGH-Anteile der Anfangsadresse #7680 und der Endadresse 
+ ! #15872. Das CLR ist fur die entsprechende Anpassung der 
restlichen Vektoren erforderlich, 


2. Maschinenprogramme laden 


Dies ist mit weniger Muhen verbunden: wenn es sich um Maschinen- 
programme handelt, die ursprunglich innerhalb des Bereiches bis 
S’FFF lagen, so reicht das LOAD aus. Denn das File-Kennzeichen 3 
sorgt nicht nur dafur, daß Veränderungen bei den zu ladenden 
Bytes (Link-Umrechnung) verhindert werden, sondern auch daß die 
eingelesenen Bytes dorthin gespeichert werden, von wo sie "herge- 
holt" (SAVE-Prozedur) worden sind. 


Die letzte Aussage heißt mit anderen Worten aber auch, daß das im 
oben beschriebenen Beispiel abgespeicherte Spielprogramm wieder 
in den Bereich #7680-15871 zuruckgeladen wird. Das ist weiter 
nicht schlimm, weil wir in umgekehrter Weise von VC-TRANSFER Ge- 
brauch machen und das Spielprogramm nach $A000-BFFF kopieren kon- 
nen. Es gibt. da aber ein einfacheres Verfahren: 

Nachdem die Kassette mit dem Spielprogramm richtig positioniert 
worden ist, geben Sie ein: 


SYS 63407 (Return) 


Der Aufforderung PRESS PLAY ON TAPE kommen Sie nach. Diese Einga- 
be sorgt jedoch nur dafur, daß der Tape-Header (s. Kap. 3.2) des 
Spielprogramms geladen wird. Dadurch, daß Sie zu diesem Zeitpunkt 
die für den Lädeprozeß maßgebliche Anfangsadresse (LOW/HIGH-For- 
mat in #829,830) sowie Endadresse (+2 !!) (LOW/HIGH-Format in 
#831,832) "verstellen" konnen, ist es Ihnen somit moglich, sich 
den gewunschten Zielspeicherbereich frei auszusuchen. Wir wahlen 
naturlich SA000-BFFF und geben deswegen ein: 


POKE 830 ,160:POKE 831,1:POKE 832,192:SYS 62980 (Return) 
Das SYS 62980 setzt den LadeprozeR fort, nach dessen Beendigung 


Sie noch NEW eingeben. Im Falle eines Autostart-Modulprogramms 
starten Sie es mit SYS 64802 oder RESET. 
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Zusätzliche Basic-Funktionen 


4,1 Eigene Befehle definieren 


4.1 EIGENE BEFEHLE DEFINIEREN 


Fast jeder von Ihnen hat schon mal das Stichwort "Extended Basic" 
oder "Exbasic" irgendwo gelesen oder gehort. Was damit gemeint 
ist, sagen diese Begriffe implizit aus: es handelt sich um Basic, 
welches um mehrere Befehle erweitert worden ist. Per Kassette, 
Diskette oder Steckmodul kann man Basic-Erweiterungen inzwischen 
fast uberall kauflich erwerben. Fur viele Programmierer wäre es 
aber viel interessanter, diesbezuglich nicht auf fertige Produkte 
zuruckgreifen zu mussen, sondern vielmehr die Moglichkeit zu ha- 
ben, sein eigenes individuell ausgepragtes Exbasic-Profil zu kre- 
ieren. 


Das in diesem Kapitel beschriebene Programm VC-COMMAND macht’s 
moglich. Mit dessen Hilfe konnen Sie jedes beliebige Maschinen- 
programm, welches Sie normalerweise per SYS-Befehl aufrufen, ei- 
nem von Ihnen gewählten Befehlswort zuordnen. Bei Eingabe dieser 
selbst definierten Befehle im Direkt-Modus oder auch bei deren 
Benutzung im Programm wird der diesem Befehl zugeordnete SYS-Be- 
fehl von selbst ausgeführt. Der Benutzer braucht sich demzufolge 
nicht mehr die Adresse zu merken, auf die er sonst per SYS sprin- 
gen mußte, sondern nur noch die selbst gewahlten einfach einprag- 
samen Befehlsworte., 


Das Maschinenprogramm VC-COMMAND (s. Bild 4.1.9) wird je nach Ih- 
rem Wunsch in einem beliebigen Speicherbereich generiert. Wenn 
Sie es pauschal am RAM-Ende ablegen lassen, wird es gegen Üüber- 
schreiben geschützt. 


BEDIENUNGSHINWEISE 


VC-COMMAND ist ein Maschinen-Programm, das in den im Kapitel 5.2 
beschriebenen Basic-Loader (Bild 4.1.1) eingebunden wurde. De- 
tailinformation bezgl. diesem kann dort in Erfahrung gebracht 
werden. Fur VC-COMMAND sind einige Programmzeilen hinzugekommen, 
die unter 7.) bei den Programm-Einzelheiten kommentiert werden. 
Bevor Sie den Basic-Loader normal mit RUN starten, sollten Sie 
ihn abgeSAVEd haben, weil dieser sich nach getaner Arbeit von 
selbst in Wohlgefallen auflost. Zu Anfang werden Sie gefragt, ab 
welcher Adresse (dezimal) das M-PGM generiert werden soll. Bei 
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Eingabe von "E" wird es ans Basic-RAM-Ende gespeichert, wobei 
eventuell schon andere vorhandene M-PGMe in keinster Weise ange- 
tastet werden. 


18 REM VC-COMMAND 
15 REM EINBAU VON ZUSAETZLICHEN BEFEHLEN 

28 REM IN DATR’S AB 1888: <BEFEHLSNAME> .» (DEZ-EINSPRUNGADRESSE) 

25 REM LETZTER NAME MUSS "@" SEIN 

27 REM BEFEHL "OFF" SETZT BASIC-VEKTOREN ZURUECK 

30 L=122 

40 PRINTCHR$(147>"ABLEGEN DES M-PGM:" 

58 PRINT:PRINT:PRINT"E = AM ENDE VOM BASIC-"SPC(4) "RAM-BEREICH" 

68 PRINT :PRINT :PRINT"<ZAHL> GEWUENSCHTE AN-"SPCC7) "ANFANGSADRESSE"SPCCB)" CDEZIMA 
L) vom" 

7@ PRINTSPC<7> "PROGRAMM" :PRINT:PRINT 

88 G0SUBS89 : INPUTA$ :SD=YAL<A$) : IFSDTHEN16A 

98 IFAS<C>"E" THEN40 

189 EM=PEEK (55) +256WPEEK (56) :AD=EM-L-TL :ER=PEEK (643) +256WPEEK (644) 

118 IFEM=ERTHEN130 

128 IFPEEKCER-3><>1970RPEEKLER-2ICD2BEORPEEK (ER-1ICD1LISTHEN1SO 

138 POKEEM-3, 197 :POKEEM-2, 286 : POKEEM-1 , 196 :AU=AD-7 : GOSUB25@ 

148 POKEEM-5, AL: POKEEM-4, AH% 

150 GOSUB258 : POKESS, AL :POKES6 , AHA : AL=FRE(9) :SD=AD 

168 GOSUB260 

178 FORI=SDTOSD+L-1 :READAS 

1880 IFAS<"H" THENA=VAL (AS) :CH=CH+A :GUTO218 

198 IFA$>"H" THENAD=VALCRIGHTECAS, LENCAF)-1)) :CH=CH+AD : AD=AD+SD  GOSUB2SB | A=AL 'GOT 
0218 

208 A=AH% 

218 POKEI,RA: IFPEEK< I)=ATHENNEXT 'G0T0238 

228 PRINT :PRINT:PRINT"ROM-BEREICH I!" :PRINT"ANDERE WAHL" 'PRINT"FUER ANFANGSADRESS 
E":STOP 

238 IFCH<>1SSSSTHENPRINT 'PRINT"PROGRAMM IST FEHLER- HAFT EINGEGEBEN !!1":STOP 
2408 00SUBEBB : SYSSD : NEW 

250 AHZ=AD/256 : AL=AD-256HRHR RETURN 

260 PRINTCHR&« 147) "M-POM-AUFRUF MIT: " PRINT 

270 PRINTCHR$(C18)"SYS"SDCHRFC146) : PRINT 

288 PRINT"WARTEN AUF "CHR$C18) "READY "CHREC146)" 1 1" RETURN 
500 READCM$ LE=LEN(CCHE)  IFCM$="@" THENRETURN 

518 TL=TL+LE+3:READES:GOTOS@R _ 

688 RESTORE: TE=I-i 

618 READCM$:LE=LENCCM$) : IFCME="@" THENPOKETB,@: RETURN 

628 FORI=BTOLE-1 :POKETB+1,ASCAMIDSCCM$, I+1,19) NEXT 

630 POKETB+LE,®:READAD :AD=AD-1 :BOSUB2S8 

648 POKETB+LE+1 AHA POKETB+LE+2. AL 

650 TB=TB+LE+3:G0T0610 


18088 DATA a 

20 ’ ,168,H, 142, 8,3, 148,9, 3,96, 32,115.8,32,L26 

2018 DATAH, 76,174,199, 240, 244,233, 128, 144,3, 76,243, 199,162, L115, 168 
2028 DATAH, 134, 187, 132,188, 160,98, 152,24, 101,187. 133, 187, 169,0, 168 

2030 DATA181, 188, 133, 188, 177,187, 248, 31,289, 122,208. 35, 208, 177,187,240 
2048 DATA?,209, 122, 208,26. 200,208, 245,152,24,101,122,133,122,169,0 
2050 DATA1B1,129, 133, 123,208, 177,187, 72,208, 177,187, 72,76, 121,0,177 
2068 DATA187,248, 3,200, 208,249, 200, 208, 200, 288, 188,194, 104,32,121:8 
2970 DATA76,231,199, 79,70. 70,0,228:90,0 


Bild 4.1.1 
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Nachdem Sie die gewunschte Anfangsadresse bzw. "E' eingegeben und 
mit RETURN bestätigt haben, wird das M-PGM VC-COMMAND abgespei- 
chert, und die von Ihnen vorgegebenen Befehlsworte werden akti- 
viert. Bevor der Basic-Loader sich selbst loscht, wird auf dem 
Bildschirm derjenige SYS-Befehl angezeigt, der die Befehle von 
neuem aktiviert, wenn diese zwischendurch deaktiviert wurden, 
Diesen Befehl schreiben Sie sich zweckmaßigerweise auf. 


Die Zuordnungen von Befehlsworten und SYS-Adressen mussen als DA- 
TA-Zeilen vor Zeile 2000 in den Basic-Loader (Bild 4.1.1) einge- 
fügt werden. In den DATA-Zeilen stehen hintereinander die Paare 
von Befehlswort und SYS-Adresse, Die Liste muß mit dem "Klammer- 
affen"-Zeichen als Endekennzeichen abgeschlossen werden. Ein Bei- 
spiel fur eine solche DATA-Liste liefert Bild 4.1.2. 


1888 DATA FERTIG,51243:REM ENI 
1gı1M DATA AR, Sıkıa Rem FÜR 

1022 DATA WEITER, 32510: REM NEXT 
1440 DATA EINGABE#,52133:REM INPUT# 
1852 DATA EINGRBE,S52153:REM INPUT 
1462 DATA LIES,S5223@'REM READ 
1078 DATA LASS.51621:REM LET 

1888 DATA ZU,S1360:REM OOTO 

1299 DATA LNDS,$1313:REM RUN 

1182 DATA WHENN.S1496'REM IF 

1118 DATA DATENANFANG,S1229:REM RESTORE 
11264 DATA UP,S51331 REM GOSUB 

1138 DATA RAUS,S1418:REM RETIUFRN 
1148 IATA “.51$915:REM REM 

1159 DATA #,51247:REM STUP 

1168 DATA BEI.S$1531'REM OH 

1178 DATA WARTE.53341 REM WARTE 
1189 DATA LADE,S7FOL'REM LORL 
1130 DATA RETTE.57683:REM SAVE 
12K& DATA FRUEFE,S57698:REM VERIFY 
1218 DATA IN.S5332:'REM POKE 

1220 DATA AUS#,S51848:REM PRINT# 
1230 DATR AUS,S1872:REM PRINT 
1248 DATA PM, S@844:REM LIST 

1254 DATA LOESCH, 50782:REM CLR 
1268 DATA MP.S7639:REM SYS 

1278 DATA DATEI.57787:REM OFEN 
1280 DATA SCHLIESS.S7736:REM CLOSE 
12374 DATA HOLE. 2091 :REM GET 

1302 DATA NEU. S9754:'REM NEW 

1318 DATA @ 


Bild 4.1.2 
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In diesem Beispiel (Bild 4.1.2) wurde, was unschwer zu erkennen 
ist, die Absicht verfolgt, die im VC-20 eingebauten Basic-Befehle 
zu verdeutschen bzw. zu symbolisieren (z.B.: " fur REM), Werden 
die DATA-Zeilen dieses Beispiels in den Basic-Loader eingebunden, 
so sind nach Aktivierung neben den bisher gewohnten Befehlen zu- 
sätzlich die neu hinzugekommenen benutzbar. Anstatt RUN kann also 
auch LOS eingegeben werden, 


Ein Befehl ist von vornherein und unabhangig von jeglicher Be- 
fehlsdefinition gültig. Das ist der Befehl OFF, Dieser bewirkt, 
daß der Basic-Interpreter-Vektor auf seinen Normalwert zuruckge- 
setzt wird, so daß die zusatzlichen Befehle dem VC-20 nicht mehr 
verständlich sind. Testen Sie OFF, indem Sie den Basic-Loader ge- 
maß Bild 41.1 starten und hinterher OFF eingeben. Es wird die 
READY-Meldung folgen. Geben Sie dann erneut OFF ein, so ist die- 
ser Befehl naturlich nicht mehr aktiv und das Resultat ist SYNTAX 
ERROR. 


Bei der Definierung von neuen Befehlen ist zu beachten, daß syn- 
taktische Probleme auftreten konnen. VC-COMMAND funktioniert nam- 
lich in der Weise, daß ein vorkommender Befehl - ob im Direkt- 
Modus oder im Programm - zuerst daraufhin uberpruft wird, ob die- 
ser zu einen der "eingebauten" gehort. Ist dies nicht der Fall, 
dann wird der Befehl mit den neu hinzugekommenen verglichen. Wenn 
allerdings auch dann keine Identifizierung moglich ist, so er- 
scheint die Meldung SYNTAX ERROR. Die syntaktischen Probleme tau- 
chen dann auf, wenn die Zeichenkette eines der "eingebauten" Be- 
fehle in der Zeichenkette eines neuen Befehls enthalten ist. Bei- 
spielsweise wurde der neue Befehl FORGET - was auch immer er für 
eine Funktion hatte - nicht als neuer Befehl identifizierbar 
sein. Noch schlimmer: er wurde sogar immer die Fehlermeldung SYN- 
TAX ERROR verursachen, weil der VC-20 nach dem Befehl FOR nicht 
einen weiteren Befehl (GET), sondern eine Variable erwartet, 


Weiterhin ist bei der Befehlsliste in den DATA-Anweisungen zu be- 
rücksichtigen, daß VC-COMMAND die vorgegebenen Befehle mit dem 
eingegebenen in der Reihenfolge vergleicht, wie sie in den DATA- 
Zeilen stehen, Was also zuerst erkannt worden ist, wird auch zu- 
ert abgearbeitet. Aus diesem Grund dürften die DATA-Zeilen 1220 
und 1230 nicht ausgetauscht werden, weil in diesem Fall bereits 
beim Befehl AUS bei Eingabe von AUS# die Suche erfolgreich ware. 
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4.1 Eigene Befehle definieren 


ERSIGL-Interpreter umleiten 


Naschsetes Zeichen holen 
Syntax Pruefen 
zum Anfan®_der Interpreterroutine . 


"Sprung, wern ":" oder Zeilenende 


Sprung, wern Zuweisung oder Zusatzbefehl 
Sprung, wenn 1. Zeichen = BASIC-Token _ 
Tabellenvektor $BB:$EC initialisieren 


Ya 
Tabellenvektor um 7 verarnessern 


Pr Te] 


1. Zusatzbefehlezeichen aus Tab. holen 
Sprung. wenn & 

mit 1. Ein®abezeichen veraleichen 
Sprung. wenn unsleich 
Wert 

Haechstes Zusatzbefehlszeichen holen 
Sprung, wenn Wergleich erfolsreich 

mit naechstem Einsabezeichen ver@leichen 
SPprund wenn unaleich 


Spruns: immem 00... 
’ zu Zeilennummer addieren 


Srrungadresse aus Tabelle holer wurd 
in Stack le@en 


SrFrung nach worgegebener SPrunsadrezsse 


Bild 4.1.3 (Teil 1) 
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zuSsF LOA CFBR>,'Y Zusatzbefehlsende zuchen 

za61 BEN FZA66 Sprung. wern Sefunden 

2963 IHT 

2864 BNE SEO Oo $5_[___ __ 020. 

2R66 IHT Sprungadresse ueberlesen 

2867 INT 

2uEE IMr 

zu63 BNHE F2RE7 Sprun®: immer 

Za6EB FLR Ruecksprungadresse Ioeschen 

zus; PLA 

ZOED JSRH 2AR79 letztes Zeichen holen 

2u7R JMP SC7E? EinsPruns in YVE2d-Interrreterroutire 
2Ra73 4F 46 45 OR E4 "OFF" (Cü=Befehlsende) HIGH- 

eun7’a 5A Au LÖW-Einsprungadresse-|l (@=Tabellenende) 


Bild 4.1.3 (Teil 2) 


PROGRAMM-EINZELHEITEN 


1.) Name: VC-COMMAND 
2.) Ausbaustufe: beliebig 
3.) Art des PGMs: Basic-Loader 


4.) Anzahl der Bytes 
des Basic-Loaders: 1801, 2532 mit DATA-Zeilen in Bild 4.1.2 
des M-PGMs: 122 


5.) Benutzte Variablen im Basic-Loader: s. Kap. 5.2 
zusätzlich: 


CMS Befehlswort 

ES Einsprungadresse 

TL Tabellenlange 

LE „Lange von CMS 

TB Anfangsadresse des momentan abzuspei- 


chernden Befehls in der Tabelle 


6.) Listings 
des Basic-Loaders: Bild 4.1.1 (+ Bild 4.1.2 als Beispiel) 
des M-PGMs: Bild 4.1.3 (Teil 1 u. Teil 2) 
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7a) Erlauterungen zum Basic-Loader: 


7b) 


Es wird hier im Prinzip der Basic-Loader aus Kap 5.2 verwen- 
det. Es wird deswegen nur auf die hinzugekommenen Zeilen ein- 


gegangen: 


Zeilen 500 - 510: 

Es wird der Speicherplatz berechnet, der zur Abspeicherung 
der in den DATA-Zeilen aufgelisteten Befehle benotigt wird. 
Dabei werden zu jedem Befehlswort 3 Byte hinzugezahlt: eine 0 
wird namlich als Endekennzeichen des jeweiligen Befehls be- 
nutzt und die Einsprungadresse nehmen 2 weitere Bytes ein. 
Dieses Unterprogramm wird in Zeile 80 aufgerufen, bevor das 
M-PGM VC-COMMAND abgespeichert wird. Falls es am Ende des 
RAM-Bereichs generiert werden soll, muß verstandlicherweise 
erst die Gesamtlänge von VC-COMMAND = 122 Bytes + Befehlsta- 
belle bekannt sein. Die Gesamtlange geht dann in Zeile 100 in 
die Berechnung der Anfangsadresse des M-PGMs ein. 


Zeilen 600 - 650: 
Der Aufruf dieses Unterprogramms erfolgt in Zeile 240, nach- 
dem VC-COMMAND ohne Befehlstabelle generiert worden ist. Der 
Rest, also die Befehlstabelle, wird mittels diesem UP abge- 
speichert, und zwar in der Reihenfolge: 

Befehlswort ‚O,Einsprungadresse HIGH, Einsprungadresse LOW 
Als Endekennzeichen der gesamten Tabelle wird nochmals eine 0 
angefügt. 


Zeilen 1000 - 1999: 

Hier befinden sich die DATA-Zeilen, welche die Befehlsworte 
und die entsprechenden Einsprungadressen enthalten. Das 
"Klammeraffen"-Symbol muß diese Liste als Endekennzeichen ab- 
schließen. 


Erläuterungen zum M-PGM sind implizit im Listing (Bild 4.1.3) 
enthalten. 
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4.2 NEUE FUNKTIONEN: KEEP, FETCH, VIEW, DISCARD, DELETE 


Sie werden vielleicht schon einmal etwas uber die Funktionen AP- 
PEND und MERGE gehort haben. Dies sind Funktionen, die das Zu- 
sammenfugen von Programmen bzw. Programmteilen ermoglichen. Al- 
lerdings weisen die bisher veroffentlichten Realisierungen dieser 
Funktionen einen Nachteil auf, so daß die Nutzungsmoglichkeiten 
erheblich eingeschrankt werden: sie erlauben namlich eine Anei- 
nanderkettung nur dann, wenn die Zeilennummern des jeweils hinzu- 
kommenden Programmteils großer sind als diejenigen des bereits im 
Arbeitsspeicher befindlichen Programms. 


Fur so manche Erfordernisse ist diese Einschränkung moglicherwei- 
se vertretbar. Eine viel elegantere Losung jedoch ware dann gege- 
ben, wenn man mithilfe eines universell einsetzbaren Werkzeugs 
Programme beliebiger Zeilennumerierung ıneinander verzahnen konn- 
te, Das hier angebotene Programm VC-KEEP liefert dafur die Lo- 
sung. Dieses Maschinenprogramm (s. Bild 4.2.3) umfaßt zwar 879 
Bytes, beinhaltet jedoch immerhin 5 Funktionen, die die Arbeit 
eines Basic-Programmierers um einiges komfortabler machen konnen. 


Nicht nur das Mischen von Programmen namlich ist mit VC-KEEP mog- 
lich, Sie haben damit auch die Moglichkeit, Programme voruberge- 
hend per Funktion KEEP ans RAM-Ende "wegzulegen", wenn sie nicht 
benotigt werden, Jedes dieser weggespeicherten Programme kann man 
nach Belieben per FETCH-Funktion wieder in den Basic-Arbeitsspei- 
cher zuruckrufen und dann erneut benutzen. Ein andauerndes Hin 
und Her mit der Datassette entfallt hier also, 


Die Funktion VIEW zeigt die Anfangsadressen samtlicher am RAM-En- 
de vorhandenen M-PGMe an, bei dort abgelegten Programmen daruber- 
hinaus noch deren Namen. VIEW ist hier gewissermaßen das, was das 
Abrufen der Directory bei der Diskette ist. Mit DISCARD wird der 
Speicherraum, den ein Programm am RAM-Ende einnimmt, wieder frei- 
gegeben. Die Funktion von DELETE ist den meisten von Ihnen wahr- 
scheinlich schon gelaufig. Sie dient dem schnellen Loschen von 
beliebig langen Teilen eines im Arbeitsspeicher vorhandenen Pro- 
gramms. 
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REM WC-KEEP 

REM ZUSRETZL. FKT. KEEP, FETCH, VIEW, LISCARD, DELETE 
L=8793 

PRINTCHRE(147I "ABLEGEN DES M-PGM:" 


PRINT :PRINT:PRINT"E = AM ENDE YOM BASIC-"SPC(4> "RAM-BEREICH" 

PRINT :PRINT PRINT" <ZAHL> GEWUUENSCHTE AN-"SPCC7>"ANFANGSADRESSE"SFC\B"CDEZIMA 
vom" 

PRINTSPC (7) "PROGRAMM" : PRINT: PRINT 

INPUTR$ : SD=VAL<A$) : IFSDTHEN168 

IFA$<>"E"THEN4O 


188 EM=PEEK (SS) +2ICHPEEK (SE? AU=EM-L  ER=PEEK (643) +256%#PEEK (644) 

118 IFEM=ERTHENIIQ 

128 IFPEEKCER-37<>1970RPEEK<ER-2)I<P2B560RFEEK CER-13CDLI6THENISO 

138 FOKEEM-3, 197 :POKEEM-2, 206 : POKEEM-1, 196 : Al=AD-7 : BOSUBZSR 

148 POKEEM-5,AL 'POKEEM-4, AHA 

158 GOSUBR2I0 :POKESS, AL: FOKESE : AHX AL=FRE (9? : SD=AD 

160 GOSLBZ268 

17@ FORI=SDTOSD+L-1:RERDAS 

188 IFA&<"H"THENA=VALCAF) : CH=CH+A:GOTOZ1E 

198 IFA&>"H"THENAD=VALCRIGHTECAF,LENAASI-1 99: CH=CH+AD  AD=AD+SD  GOSLIBZSB : A=AL  GOT 


021 


8 


208 A=AHr 
21@ POKEI,A: IFPEEKtIP=ATHENNEXT : 0070238 
228 FRINT :PRINT 'PRINT"RÜM-BEREICH !"'PRINT"ANDERE WAHL" PRINT"FUER ANFANGSADRESS 


Er: 


sSTOr 


230 IFCH<>L13065THENPRINT :PRINT"PROGRAMM IST FEHLER- HAFT EINGEGEBEN !!!" STUr 
248 NEW 

250 AHA=AD/256 : AL=AD-2S6HAHR RETURN 

268 PRINTCHR$(147>"AUFRUF DER FUNKTIONEN: " 

27® FPRINT"kKEER 

288 PRINTCHRSCLEI" SYS" SDCHR$C1S7I" "CHRECI4>" CNAME> "CHREL34) 5 

289 PRINT", CZNDC-> CZNI "CHREC146) PRINT 

238 PRINT"VIEW:" 

388 PRINTCHRFCIBI"STS"SD+ICHRE“ 146) PRINT 

318 FRINT"FETCH:" 


320 
330 
340 
350 
360 
378 


PRINTCHR$( 18) "SYS" SD+6CHRE« 1573" "CHREE34 I" C NAME" CHRECI4ICHRE 14 FRINT 
FRINT"DISCARD:" 

PRINTCHRS$( 183 "SYS" SD+ICHREL 1572" "CHREC3I4 I" CHAME) "CHRECIAICHREC14EI PRINT 
PRINT"DELETE:" 

PRINTCHR$C183 "SYS" SD+1ZCHREC 1572" , CZND CD CZNI "CHRSC146) 
PRINT"ZN=ZEILENNUM. , C>=OPT." PRINT 'PRINT 


® PRINT"WARTEN AUF "CHRECIBI"READYCHRELL4ED" IT" RETURN 
10008 DATA76,L18,R, 76,L657,H, 76,L889,R, 76,1L835,H, 169, 128,44, 169 


101 
182 
183 
1904 
185 
186 
187 
108 
109 
110 
111 
112 
113 
114 


® DATA64,141,66,3.32,L229,H,32,L234,H,44,66:3,48,3,76 

® DATAL3S@,H,162,1L127, 168,4, 32.1253, H, 169, 122,133, 166,165, 123,133 
@ DATA167,162,L71,160,H,32,L264.H.32.121.0,240.7,201,44,208 

& DATR3,32,115,0,.76, 196,198, 133,215, 72,138, 72,152, 72,165,215 

® DATAZ81.10.240,11,44,66,3,48,3,76,1L397.H: 76:1L289,H,32 

8 DATAL271,H,169,196,205,3,3,248,7,162,98,32,1L262,H,208,8 

® DATA32,L2608,H, 169, 193,32, 122,242,104,168.104,170,104,24.,96,32 
8 DATAL249,H,165, 166,133, 122,169, 167,133, 123, 44,66, 3,48,3,76 

8 DATAL481.,H,32,1L333,H,92,1L229,H:32,1L866,H.32,1L164.H, 22,95 

8 DATR229,76,L49,H,162,1176,168,H, 128: 142,28,3,140,21,3,96 

8 DATA32,L220,H,248,18,32,L201.H,176.12,32,1L214,H, 208,246, 162 
8 DATA191,160,234,32,L168,H. 76, 191,234, 166, 198,236, 137,2,176,5 
a DATA1S7,119,2,230. 198,96, 230, 166,208, 2,230, 167,160,9,177,166 
8 DATA96,169,0.160,8,1393, 163, 132, 164,96, 169,0,.141,68,3, 141 


1158 DATA67 ,3,141,69,3,141,64,3,96, 162, 131,168, 196,142,2,3 


Bild 4.2.1 (Teil 1) 
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1160 DATA148.3:3,96: 162, 122. 169. 242. 142,3 
1178 DATA&,44,65,3:16:4.160.,9.145.163,2 
ı18q DATASE,44.64.3.48.9. 201.13. 200.17.28 ‚4 
1194 DATARZ. 246,5.32:L273:H. 208,3:238:54; Li2e, H: 162. E17 
1200 DATA1S8,3.96.134.197.132, 188. 96,134, 170, 132.171: 96,56. 169.95 

1210 DATA223, 163; 133,166. 170,169, 56.223. 164,133. 167.158. 128,26. Fe, LUE 
12224 DATAH, 32,L619,H, 32, L287.H,32,1L318.H. 92, L328.H. 32. 1L428,H 
123& DATA165: 133, 24,195.19,133, 291.32:L227 :H-32:1L333,H,22,1325 
1249 DATA32.1L464,H,32,L318.H. 32,1323,H: 165: 183.32.1L227,H,32.L428 
1250 DATAH. 165: 183. 32.1.444.H: 169, 208. 32.1.4444: 163. 208, 32, .444.H 
1250 IATA3ZE,L444,H, 32,1L444,H: 32: L2259 4. 76.134. H, 1ES, 163. 208, € 

127@ DATA138, 164,199. 163:36:164,48.2 168, 4.177,187,145,170.230.157 
1280 TATAZB8S, 2,230, 188,230, 174.298,2 ? S ; 
1290 DATASE. 165, 166.170.229, 45,169, 167,168, 229.46, 17:3, 76 
1300 LATAFS, 296,.65.3:.169,.2%51,24,181.163:13 53,169: M: jet. 
131@ DATA1E4.32,1L332:H:32,L229,H:32,1464.H 32, L942.H, 165. 106: 
ı32a DATAQ,32,L444,H,169,167,.32:1L444.H.169:197.32:.1.444,4:16 
1330 DATA3Z.L444,H.169: 196,22, 1.444, H: 76,L49. H% 32. L323, Hıls 
1348 DATA132,96,134,91,132.,92, 169. 3 

1358 DATA132S. SA,965,32.121,.8, 298,3,7 
13650 DATA11S.9,32,84,226,134,1923, 170 e- 4.162 
1370 DATA144.,5.162.293, 76.90, 176.133, 251: 132, 194. BE: LEBE NH. 1] 
1382 DATA133, 183, 166, 193, 134. Auen 1654, 134, 132 5.7 
1398 DATA1BZ.2:208,7,44,68,3.48,9:162,4. 7.5 
1490 DATAL. 169, 197,208, 2 »198, 188. ar 197; ven “a, 
141 DATAFE.:169,13,32. 128,242. 96, 110:67: Pike 
1428 DATA17Z,132,2.32,L939.H, i63 2,133 
1438 UATA113:32:L659 4,201. Zen, 208,112 
1440 DATALE39.H: 72,32:L639,H, 176. 164.1 
1450 DATAH. 201.208, 208, 16:32, LE39.n, Zul Eu, 
1468 DATAH1SI.178,32,L641 
1472 DATAZZI: 169,38, 38, 1 = 

1430 DATA12Z. 242,166, 170, 164, 171.208. 155. 164. 
1490 LATA193. 209, 187,208, 37,136. 16.247.206, nu 
1504 DATA133,.168,169,171.123,163 . 

1510 DATALS63:H,32:L628,H: 165. 168, 
1529 DATA?6.L164,4H:32,L229.H,3&,L&34H: 
1530 DATA1SS.208,2:.198,. 167,178, 166 1A ® 1s2. 
1548 DATALS56,H. 206, 69,3.38. 1464 6,28, 2.1.6 HM 





»149,39,3.96; 
163. zus ea 


















































































Bild 4.2.1 (Teil 2) 


Das Maschinenprogramm VC-KEEP wird je nach Ihrem Wunsch in einem 
beliebigen Speicherbereich generiert. Wenn Sie es pauschal am 
RAM-Ende ablegen lassen, wird es gegen überschreiben geschutzt. 
Weiterhin sind die in VC-KEEP enhaltenen Funktionen KEEP, VIEW, 
FETCH, DISCARD und DELETE koppelbar mit von Ihnen frei definier- 
baren Befehlen (s, Kap. 4.1). 


BED IENUNGSHINWEISE 


VC-KEEP ist ein Maschinen-Programm, das in den im Kapitel 5.2 be- 
schriebenen Basic-Loader eingebunden wurde, Detailinformationen 
konnen dort in Erfahrung gebracht werden. Der Basic-Loader wird 
normal mit RUN gestartet. Sie werden gefragt, ab welcher Adresse 
(dezimal) das M-PGM generiert werden soll. Bei Eingabe von "E" 
wird es ans Basic-RAM-Ende gespeichert, wobei eventuell schon an- 
dere vorhandene M-PGMe in keinster Weise angetastet werden. 
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Nachdem die Eingabe einer Anfangsadresse oder von "E" durch RE- 
TURN bestatigt worden ist, werden Ihnen auf dem Bildschirm die 
Aufruf-Adressen fur die 5 Funktionen angezeigt. Zur besseren Er- 
lauterung gehen wir von einem Beispiel aus, Sie lernen damit 
prinzipiell den Gebrauch der Funktionen kennen und konnen die Re- 
geln auf andere Anwendungsfalle ubertragen, 


2.B. besitzen Sie einen VC-20 mit. einer 16 KByte-Speichererweite- 
rung, Nach Starten des VC-KEEP-Basic-Loaders mit RUN entscheiden 
Sie sich dafur, das M-PGM am Ende des Basic-RAM generieren zu 
lassen. Sie geben also ein: E (Return). Daraufhin werden folgen- 
de Hinweise gegeben: 


KEEP: 
SYS 23690," (Name)",(ZN)(C-)(ZN) 


VIEW: 
SYS 23693 


FETCH: 
SYS 23696, "(Name)" 


DISCARD: 
SYS 23699," (Name )" 


DELETE: 
SyS 23702, (ZN)C-)(CZN) 


Die Arıgabe der Zeilennummer (ZN) und des Bindestrichs (-) sind 
optional. Die angegebenen 5YS-Anweisungen schreibt man sich am 
besten ırgendwo aut, merken tut man sich die ja nicht. 


Probieren wir jetzt gleich einmal die Funktion VIEW aus, indem 
wir SYS 23693 eingeben. Als Reaktion erscheint die Zahl 23690 auf 
dem Bildschirm. Das ist die Anfangsadresse des am Basic-RAM-Ende 
abyespeicherten M-PGMs VC-KEEP. Wenn ubrigens noch andere M-PGMe 
am RAM-Ende vorhanden waren, wurden die Anfangsadressen samtli- 
cher M-PGMe untereinander angezeigt werden, vorausgesetzt, sie 
wurden mit unserem speziellen Basic-Loader aus Kap. 5.2 gene- 
riert. 
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Die VIEW-Funktion beschrankt sich nicht nur darauf, alle diese 
Anfangsadressen aufzulisten, sondern ubt noch eine andere wesent- 
liche Aufgabe aus: falls es irgendwann einmal notwendig werden 
sollte, die RESET-Taste zu drucken, dann waren ja sämtliche M- 
PGMe am Basic-RAM-Ende vor überschreiben ungeschutzt, weil der 
Ende-Vektor (Adressen #55,56) reinitialisiert worden ist. VIEW 
muß in diesem Fall unmittelbar nach RESET aufgerufen werden, weil 
es die vorliegenden M-PGMe identifiziert und den Vektor #55,56 
auf die Anfangsadresse des zuunterst liegenden M-PGMs ausrichtet. 
Aufgrund dieser Rettungsfähigkeit wird diese Funktion in den M- 
PGM-Kommentaren (Bild 4.2.9) auch als VIEW & RESCUE bezeichnet. 


Zuruck zu unserem Beispiel, wir geben jetzt die Programmzeile 
ein! 
20 PRINT "IST" 


und speichern sie mithilfe der KEEP-Funktion ans RAM-Ende: 
SYS 23690,"ZEILE 20” 


Der Name "ZEILE 20" ist beliebig. Ein Name ist jedoch notwendig, 
um diesen Programmteil - auch wenn es sich nur um eine einzige 
Zeile handelt - identifizierbar zu machen. Die Angabe der Von- 
Bis-Zeilennummern sparen wir uns, weil wir alle vorhandenen Pro- 
grammzeilen - in diesem Fall gibt es nur die Zeile 20 - geKEEPed 
wunschen. Nebenbei bemerkt, wenn Sie die 5 oben angegebenen SYS- 
Einsprungadressen mit den Befehlsworten KEEP, VIEW, FETCH, DIS- 
CARD und DELETE (oder auch anderen Worten) uber das Programm VC- 
COMMAND aus Kapitel 4.1 koppeln, dann konnten Sie in luxurioser 
Weise eingeben: 
KEEP "ZEILE 20" 


üben wir jetzt wieder die Funktion VIEW aus. Per SYS 23693 erhal- 
ten wir jetzt folgerichtig 2 Angaben auf dem Bildschirm: 


23690 
23656 ZEILE 20 


Wir konnen daraus ableiten, daß die PGM-Zeile 20 ab Adresse 23656 
nach oben hin abgespeichert wurde. Außerdem gibt die letzte mit- 
tels VIEW angezeigte Adresse auch gleichzeitig die augenblicklich 
für Basic gultige obere Grenzadresse an, 
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Als nachste Programmzeile werden wir 
40 PRINT "KLEINES" 
eingeben, welche wir ähnlich wie oben per 
SyS 23690, "ZEILE 40" ‚40 


"weglegen", Die Angabe "40" hinter dem Namen muß durch ein Komma 
vom Namen getrennt werden und sagt aus, daß nur die Zeile 40 ge- 
speichert werden soll. Die VIEW-Funktion hatte jetzt folgendes 
Resultat: 

23690 

23656 ZEILE 20 

23618 ZEILE 40 


Per NEW leeren wir nun den Basic-Arbeitsspeicher und tippen die 
folgenden Zeilen ein: 


10 PRINT "DIES" 
30 PRINT "EIN" 
50 PRINT "DEMO-PROGRAMM" 


Die FETCH-Funktion werden wir jetzt dazu verwenden, dieses Pro- 
gramm um die weggespeicherten Zeilen zu vervollständigen. 


Nach Eingabe von: 


SYS 23696, "ZEILE 20" 
SYS 23696 ,"ZEILE 40" 


und Programmstart per RUN konnen wir uns aufgrund der Ausgabe: 


DIES 

IST 

EIN 

KLEINES 
DEMO-PROGRAMM 


davon überzeugen, daß tatsächlich die abgespeicherten Zeilen 20 


und 40 in der richtigen Reihenfolge in das vorherige Programm 
(Zeilen 10, 30, 50) eingeordnet wurden, 
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Da wir die "weggelegten" Programmzeilen 20 und 40 nicht mehr zu- 
ruckrufen werden, geben wir den Speicherbereich per DISCARD-Funk- 
tion wieder frei. Hierbei ist zu beachten, daß bei Loschen eines 
Programmteils gleichzeitig samtliche unterhalb diesem Teil lie- 
genden andere Programmteile und M-PGMe ebenfalls gelöscht werden, 
Mit anderen Worten: 


SYS 23699,"ZEILE 20" 


wurde nicht nur den Speicherplatz von "ZEILE 20", sondern auch 
von "ZEILE 40" freigeben, wovon Sie sich schnell per VIEW-Funk- 
tıon uberzeugen konnen. 


Die Funktionerı KEEP und DELETE konnen Sie auf einen beliebigen 
"Ausschnitt" Ihres Programms anwenden, Den Ausschnitt bezeichnen 
Sie in der gewohnten Weise wie bei LIST. 


Wollen Sie also z.B. die Programmzeilen 10-30 unter dem Namen "1. 
TEIL" wegspeichern und die Zeilen 30 und 40 loschen, so geben Sie 
ein! 


SYS 23690,"1. TEIL”, -30 
Sys 23702 ,30-40 


Sie werden sich vielleicht schon gefragt haben, woran das M-PGM 
VC-KEEP die unter einem Namen abgespeicherten Basic-Programmzei- 
len von M-PGMen unterscheiden kann. In Kapitel 5.2 erfahren wir 
(Bild 5.2-2), daß an ein M-PGM 7 Bytes drangehangt werden, die 
die Existenz eines M-PGMs auch nach RESET erkennbar machen, 


Bild 4.2.2 
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währenddessen bei M-PGMen den ersten 2 Bytes dieses Anhangsels 
keine Bedeutung gegeben wurde, sieht dies bei Programmteilen an- 
ders aus (s. Bild 4.2.2). Hierbei werden den ersten zwei Bytes 
die Werte SDO (ASCII-Code von "P" mit gesetztem Bit 7) gegeben. 
VC-KEEP kann bei Vorhandensein dieser Werte erkennen, daß es sich 
um Programmzeilen handelt und weiß darüberhinaus, daß deren Name 
und die Lange des Namens (NL) unmittelbar unterhalb dieser 2 


Bytes gespeichert ist. 


PROGRAMM-EINZELHEITEN 


1.) Name: VC-KEEP 
2.) Ausbaustufe: 3K-V oder >=8K-V 
3.) Art des PGMs: Basic-Loader 
4.) Anzahl der Bytes 
des Basic-Loaders: 4585 
des M-PGMs: 879 
5.) Benutzte Variablen: s. Kap. 5.2 
6.) Listings 
des Basic-Loaders: Bild 4.2.1 (Teil 1 und 2) 
des M-PGMs: Bild 4.2.3 (Teile 1-7) 


7.) Erlauterungen zum Basic-Loader werden in Kap. 5.2 gegeben und 
zum M-PGM implizit im ausführlich kommentierten Listing (Bild 


4.2.3). 
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KEEP, FETCH, VIEW, DISCARD, DELETE 








zaaa JMF SZUOF Funktion: KEEF 

zua3 JMP 82251 Funktion: YIEWM & RESCUE 

zaa6 IMF 82329 Funktion: FETCH 

zes JMP #2343 Funktion: DISCARO 

zB LUOR #rS0 Besinn Funktion: DELETE 

= $ Adr.: 220GF LDA #840 

zaı11l STA #0342 Fla9 sPeichern fuer DELETE/KIMER 

2214 JSR FZeEL £A3. 4 = Au 

2zu17 JSR 20ER Fla93=2 auf Default setzer 

ZU1AR BIT #0342 Weiche fuer DELETE? kER 

Zain BMI #2022 Sprung zur Fkt. DELETE 

zuiF JMF S2ISE Sprung zur Fkt. KEeE 0... un 
zu LDR HE7F BASIL-Warteschleifen-Vektor verbiesen 
2024 LUY #208 

2u26 ISRSaD  _ L_L_LLLL z 

2083 LOA #7A Scarner-Vektor retten 

zu2B STA $A6S nach #A6.$#H7 

zZeED LDA 87ER 

zur Ste _öÖöO&L LU LL FERE 

2a31 [Dx #847 OUTPUT-VWektor werbiesen 

2033 LDYr #420 

ze35 JSR szZ2IO 0 09O££6O LI LIU er a 

2033 JSR #0079 “on - Bis Zeilennummer einlesen 
2K3B BEQ 82044 

2aaD EMP #F2C 

2aaF BHE 82044 

2041 JSR 80073 

2644 JMP_$6635 ....$Prung zur LIST-Routine 

204 h 

2449 PHA Resister A.K,Y retten 

zU4A TEA 

2u4B FHA 

ze4C TFA 

2a4l PHA 

284E LIA 807 zu EN BRASERRE En oe haha 
2050 CMP rar Bereich fuer DELETE bzw. nk zuende 
zu=2 BER #20%5F 

2054 BIT #0342 Heiche fuer DELETE/ KICK 

057 EMI 8#205C Fortzetzuns DELETE 

2a59 IMP 32133 Sprung zur Fortzetzunsg d. Fkt. red" 
zaSc JMP all Sprung zur Fortsetzung 4. Fkt. DELETE 
zaSF JSR #20 0° — — _ $00 ale Endekennzeichen abszFeichern 
262 LOIA #$C4 

2264 CMP 0303 

zu67 BEU #207  __ SPrun®, wenn AbsFeicherung terti9 
2069 LDX #862 ALTPLT-Vektor auf #F262 = RTS stellen 
2OER JSR 2106 entspricht: Aussabe blockieren 
2u6sE BNE Ka Sprung: immer ER 
2070 'JSR Kid —3OC<——_QUTPUT-Vektor wiederherstellen 

2673 LDA ##080 CR 

207% JSR #F27A Ausgeben 

zur Fran TO OT Te BR 

28279 TAT Resister A,X,'r zurueckholer 

2Ra?A PLA 

287B TAX 

287C PLA 

207D CLE 

287E RTS 





Bild 4.2.3 (Teil 1) 
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za7F JER SZ0OF3 _ _ _ _ AASIC-Warteschleifenv. wiederherstellen 
2082 LIR FAE a ee 
zad4 ETA SA Scarner-Vektor zurueckstellern 


2uas LIA £A7 
zusg STA FR 


zuaan BIT #B342 ° Weiche füer TELETEFE:ERF ee 
Zeen BMI 2892 Fortsetzung DELETE 

Za8F IMP SEIEl _ __ _ _S$Prung zur Fortsetzung d. Fkt._kbier 
zu92 SE F@l4l Neues BASIC-Ende nach $A6,$A7 und KAT 
2495 SR 2EBEI A,'r nach £A3. tA4 

23a JSR 22352 Memonrs-lheck 

2u3R JER FARM Tastaturruffer-Einsabe freigeben 

ZUSE JER SESSF SLR HOME 

earl MP gza3l zum AbsPeichern 

zeh4 LIx #+EAM "Interrurt-Routine umleiten oT 
zans LIV #20 

ZuRE SEI 


zaaF STR Saal 4 
SAAL STr A315 








ZURF RTS 
apa "SSR FEuol "Momertanes Zeichen holen 
zuEa BEU S2OBF — _ _ Sprung. wenn Text zuende _ _ 
2085 JSR +2aC9 Feichern nach Tastaturpuffer (Versuch) 
Bo BLS F2OC6 Sprung, wenn Tastaturpuffer voll 

RER ISR SZ2ADE = Naechstee Zeichen holen 
zuUbl BHE FEEBRS . . Sprung, wenn Text nicht zuende 
ZEBF LDM #2BF Interrupt-Rout. auf alten Stand bringen 
zacı LDr #EEA 

3 [ER SEO 

2 $EARF Ende der Interrupt-Routinen-Umleitun® 
2aca LOK 866 "Wieviele Zeichen im Tastaturfuffer? 
zBcH CH 3N2HF mit maximal erlaubter Arzahl versleichen 
EACE ECS 2005 Sprun® raus, wern Puffer voll 
2018 STA Saa77.H Zeichen in den Puffer ablesen 


2ul3 INC 26 

2u0S RTS ann 

2ets ING $Ac —A6.£A7 = WEAG. EATIHl 
zus BNE #200 
ZUDA IN. $A7 

zul L.Ür #200 

2B0DE LIA CAR), Tr 
zeEa RTS 

SGEI Lim Bea 
zEEI LOr Ha “ektor £A3:,$A4 setzen 
ERES STA FA 

2udE7 STr #4 


2BE9 RIS____ BREITEN 
zZBER LDA ##U0 Flase auf Default setzen: 

2ZUET 5TA #344 File-Name worhanden 7 nicht worhander 
ZUEF 5TA A343 File-N. zuchen / Adr. + File-H. ausseben 
2UF2 STA KAI41 Zeichen zaehlen 7 absreichern 

ZUFS STA A340 Zeichen = / <>Zellennummernziffer 

2BF& RTS 

Zar 





ZarFR LOr #204 
zBrFl STa sasdz 
21a 5TYr 2303 
2123 RTS 


Bild 4.2.3 (Teil 2) 
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zıdaq4 
2106 
2128 
z10R 
212E 
zıur 
zı1ı1l 
2114 
211€ 
2118 
z11R 
ziıc 
Z11E 
2120 


LDx 
LD’r 
STH 
STr 
RTS 


#E’A 
#sF2 
sas26 
za32r 


[IN] Bu’? 7 


BIT 
BFL 
LD’r 
STA 
IMG 
ENE 
ING 
RTS 


sa341 
sz11A 
„ram 


L£A3) 


£A3 
+2128 
sr4 


Y 


OTPUT-Vektor setzen 


Zaehl- bzw. Absfeicher- UF oo 
Weiche fuer Zaehlen-Abspeichern 
Spruns zum Zaehlen 


Absreicherrn 


äh Br blau: } Ourggr 2. 
2124 BMI $212F 


2126 
2128 
ZLZA 
zieh 
zizF 
elal 
2133 
2136 
2138 
2)3R 





er 
2142 


CMP 
BNE 
IEG 
BMI 
CMP 
FEA 
JSR 
EHE 


IH ade 


JMF 


L.Ur 
RTS 


#sal 


s213B _ 


vasaa 
+2133 
#820 

+2138 
salll 
*213B 


+2078 


SIaE LOX #850 


#203 


Zei lennummern 
vor Zeileninhalt trerner 


"Zeilernummer besinnt 








Kassettenpuffer-Vektor nach Kr 


Pa SC 2ER 


2145 
&147 
2146 
214 
z14l 


STr 
RTS 
STH 
STY 


RTS 


2140 SER 


Z14E 
215 
21Se 
2194 
#155 
21597 
2129 
215P 
213C 
E15D 


LDRA 
SEC 
STA 
TAX 
LIA 
SPC 
STA 
TAT 
TsA 
RTS 


sEC 


$HH 
EA 


a7 
AN 
E7215 


+38 
14 
sn? 


$BE,#BL setzen 


SAH. $HR zetzen 


BASIC-Ende berechnen 
und nach $H6.#R7 und 


A-K,'Yr 


Z1SE JSR #2233 Name einlesen ü 


2161 
2164 
2167 
z16A 
2160 
zır0 
2172 
2173 

„2175 


JSR 
JSR 
JSR 
JSR 
SR 
L.Dri 
ELLE 
ADC 
STA 


E 70129.) 
22E3 
#213E 
*#2148 
FZ1AC 
<BR? 


Han 
$FR 


Name auf "nicht vorhanden" ueberprueten 
Laen@e des Namens nach $A3, #4 
Kassettenpuffer-Vektor 

nach Ar, &HAB 
Name nach Kassettenfuffer retten 
Namen-Laen®e 


16 addieren 
Namen-Laense + 18 nach $FB retten 


Bild 4.2.3 (Teil 3) 
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2177 JSR $2QE3 Namen-Laen9e + 18 nach #H23.&H4 
217A JSR 2140 neues BASIC-Ende berechnen 

2170 JSR #2148 BASIC-Ende nach FAR. Ab 

2182 JSR #2108 GT OF MEMÜRT 777 

2183 JSR $Z13E Kassettenfuffer-Vektor 

2186 JISR $2143 nacrı BE, #Eü 
2189 LDA $R7? Namern-i3enge 

Z18B JSR #20E3 nach A323: #A4 (als Zaehler) 
218E JSR #21AC Name ans BASIC-Ende bringen 

21>1 LDA $R7 Hamen-Laen®e 

2193 J5SR $21BRG hinter Namen absreichern 
2196 LDA #818 "soo" 

2198 JSR $21EG dahinter absreichern 

Z1ISB LIA #04 "sa" 

21SD JSR #21BC dahinter absFeichern 

21Aa JER #21RC Reserwe-Bste dahinter abzFeichern 
z1A3 JSR SZ21RC Reserve-Bste dahinter absfeichern 
21A6 JSR F2REL sA3.£A4 auf O setzen 

zıA» JMP 22022 Sprun® zum Zaehlen der FGM-Betes 
ZIRAC 

ZiRE BNE #21R2 Intererogramm 

21Ba TEC #F4 zum Kopieren Speicherzellen 
Z1BZ TEC £A3 SER,sSEL = iuvell-wektor 
21B4 BIT 4 sHA,$AB = Ziel-Vektor 
Z1B6 BMI #21CF 

21RB&a LIY sad 

zZ1ıRA LOA (&BR>,Y 

Z1RC STA CFARF. Tr 

ZIRBE ING #EB &BRB,$Bl = “SER. sl) + 1 

21Cca BNE #21C4 

21C2 INC #EG 

21C4 ING #ARA SAR,EARB = (CEAA. AB) + 1 

2166 BNE $Z1CA 

21C8 INC $#AB 

ZiCH BIT sa341 

2IEn BFL FIAT 

Z1CF RTS . 

zına SEC a 

z1D1 LDA #A6 neuen BASIC-Ende-vWektor mit 
2103 TAX 

2104 SBC #2D variablenant ana-Weltor wer@leichen 
2106 LIA #7 

z108 TAr 

2109 SB5 #2E 

zZ10B RGS $Z1EQ 

2100 IMP 82369 Sprung zur Ausgabe! "ÜLT OF MeEMce" 
Z1E® RTS 

2 Freisabe zur Absreicherun® “a 
Z1E4 LDA #FR Namern-Laenge + 10 

Z1E6 CLü zur Anzahl 

21E? ADC #3 der PüM-Bates 

Z1EF 5TA #A3 hinzuzaehlen 

21ER LIA #$08 

Z1iED ADC #4 

ZIEF STA SA 

@iFi JSR $214D neues BASIL-Ende berechnen 

21F4 JSR #20ES und nach $A3, #4 

ZiF? JSR 82108 OUT OF MEMORY 777 

Z1IFR JSR S221E neuen EASIC-Ende-"Wektor setzen 


Bild 4.2.3 (Teil 4) 
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4.2 


LDA 
LUT 
JSR, 
LÜR 
JSR 
LER 
JSR 
LoA 


sm 
02772) 
$21BC 
sAr 
S21RC 
#805 
S21Rl 
#tCE 
S21Rl 
#804 
S21RC 
12031 


ZAFl 
ZIFF 
2201 
2204 
2206 
2208 
220 
220E 
221 JSR 
"2213 LOA 
S JSR 
2218 JIMP 


ZZIE TSK Hals 


zzlE ST« 
STr 
ST 
ST'r 
265 LDA 
STA 
STA 
LIA #2E 
5TA #30 

s32 


337 
+38 
233 
334 
s2U 
z2F 
<31 





1SR saa73 
EHE #223R 







B CHF #826 
D BHE 
F JSR 20073 
ezd4e J5SR E24 
2245 STE #C1 
2247 TAX 

E&_BNE $224E_ 
e24A LOK #aa 
224 BHE 
2@4E Cm 
: a RBuür 8225 
s2 LDX a 
#543 























ei 
225E LDA £FB 

Zese STA #B7 
2262 Los £C1 


JER $223A 


2264 5TX $BB 
226€ LÜF $02 
2268 ST BC 
22ER RTS 

22ER BIT saad4 
226E BPL #227E 
2270 LOX #402 
2272 
2274 
2277 
2279 
227E 
227E 


BIT +0344 
BMI #227E 
LD® #404 
JMP £C43A 
RTS 


IME_ SCHAB _ 


r2242 


s2254 


BNE_$227B _ 


KEEP, FETCH, VIEW, DISCARD, DELETE 


LÜüb-Este von EASIC-Ende 


__hinter Namen_absfeichern _ 
HIGH-Este won EASIC-Ende 
’gJahinter abspeichern _ 


NE 

abspeichern 
gu 

abspeichern 
ug" 

abspeichern 


„EPPUS BUN. DENE RIEHBPE 
Kr nach #BR,$RT 


neues RBHSIiL-Ende = 7 


+ CLR-Furktion 


Momenkanes Zeichen holen 

"SYNTAX ERRÜR" , wenn kein Zeichen mehr 
Zeichen = "," 7? 

Sprung, wenn nein 

Haechstes Zeichen holen 

Strin® “Namen? einlesen 
LUWM-Anfanssadresse vom Namen nach [1 
Z=Fla® fuer Namen-Laenge setzen 
Sprung, wenn Laernse (>E 


zur Ausgabe 

"MISSING FILE NAME" 
Laense > i28 ? 
Sprung, wenn nein 
zur Aussabe | 

"STRING TAN LONG" 
Laenge nach $FR 
HIUH-Anfanssadresse „om Namen nach $02 
Fruefen. ob File-Name zchon worhanden 
Namer-Deskrirtor FB. #C1, #2 

nach #E7, BB. BC 





wenn nicht Setunden 
zur Aussabe' 

=... „FILE OPEN" _ 
t226B 


Sprung. 


"siehe 
Srrung. wenn Name 9efunden 
zur Ausgabe: 

"FILE NOT FÜLND" 


Bild 4.2.3 (Teil 5) 


130 


2Zr’F LIx Hal 
2281 LIA #BR 
2283 BNE #2287 
2285 DECO $BC 
2287 DEC $BRB 
2289 LI’ #08 


z28B LOA <#BB}). "7 


4.2 KEEP, FETCH, VIEW, DISCARD, DELETE 


$SBB,$Bl = C$ER,$RC) - 1 
$BB,$BL = (#BE:$EL) — % 


rd 


Zeichen C#BR>}.0 holen 


zZZzEeU TEN 

ze&8E BNE FE2ZEl 

2290 RTS 

zes ca ee Asse 


2293 _JSR $FZrA 
2296 SEC 

2297 ROR 0343 
229A JSR *20E1 
2290 LDX #0283 
Z2AQ LDr 40284 
Z2A3 JSR $221R 
ZeR6 LOA #s00 
zzRs STA SB? _ 
Z2AA JSR $287F 
Z2AD CHF #804 
ZZAF BNE $2328 
22B1 JSR $227F 
22B4 CMP #&CE 


22B6 BNE 2328 _ 


22B& [SR K227F 
22BB EMPO#ECS 


22BD BNE 2328 


2BF JSR #227F 
2aca PHA 
2203 JSR $227F 
2206 TAX 
22657 PLA 
22C8 TAr 
2209 JSR +2148 
22CC LDX #803 
22CE JSR #2201 
2201 CMP #00 
2203 BNE #22ES 
2205 JSR s227F 
2208 CHF #808 


22DA BNE K22ES 


220C JSR #227F 
22DF STA $B? 
Z2E1 TAX 

22E2 JSR $2201 


22E5 BIT $a343 


22E8 BPL +22308 
Z2ER [DK SARA 
22EC LDA AB 
22EE JSR $DDCD 
22Fi LOA #820 
22F3 JSR $F27A 


_ ausgeben 


FLAG auf "Ausgabe" schalten 


sA3,sA4 = & 
RAM-Ende-Nektor 
nach 


. BA=IC-Ende-Wektor und BB. BL 
Default-Namenlaerge = u 
nach _#Br 
$BB,*BC = SER. FECH-1 und Zeichen halen 
Zeichen = "D" 
RTS, wenn nein 
BR; &Rl = ($EB.$BL:-1 und Zeichen holen 
Zeichen = "N" 
RTS, wenn nein _ 
SER,$BC = ÄFBR.$ELI-1 und Zeichen holen 
Zeichen = "E" 
RTS. wenn nein 
HIGH-Eute won BASIC-Ende holen 
und auf Stack 
LOW-Este wor EHSIL-Ende holen 
und nach = 
HIGH-Bste 
nach Tr 
"tr nach AR, HB 
BR. sb = (#FRR.$RU)- 
nd Zeichen holen 
Zeichen = "sLn" 
SPrung, wenn nein 
SBR,#BL = C#EBR.FBÜ)-1l und Zeichen halen 
Zeichen = "tDa" 
‚SFrun®. wenn nein 
sSER,$BC = ($BB,$BL)-1. Namenlaense Holen 
Namenlaen@se nach #R7 
und mach % 
sEB,#BC = C#BR,$RC)-K 
Weiche fuer Suchen/Aussabe 
Sprung zum Suchen 
Anfanssadresse 
Jezimal 
ausgeben 
SPACE 
ausgeben 


Bild 4.2.3 (Teil 6) 
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4.2 KEEP, FETCH, VIEW, DISCARD, DELETE 


2EF& LOA 7 
Z2F8 BER $ZEFlD 
@=FA ISR $F653 
ZEFT LOR #sa) 
ZEFF JSR $F27A 
2302 LIX AR 
2304 Lür sAB 
ER 
as LIV 5 BT 
GPY FR 
ac BHE_ $2302 
TEr 
LDA 
CMP 
ENE 
DE 
BPL 
DEC 
TER 
LOA 
za 5TA 
LoRA 
=TA 
BNE 


je i0s DL 
C$BR4.'r 
2302 





$) 
I 

- 

nin 


s230F 
20344 
s2140 
FAR 
sAB 
SFR 
2A 
+2302 


KERN RUR 
IERERZR 


F20E1 
' S2BER 
SR $2233 
2274 
sne 
sA6 
$A3 
sA7 
SESSF 
IF s2and 
'R toREI 
: #20ER 
ı 42233 
+2274 
E 10153 
12255 
. $A7 
<A 
#ra0 





EA. 
+20E 1 
z223A 





MP 
DEC 
#5 JSR 
GERTS__ 
a JSR 82104 
6er JIMP 6435 






8341 
sz100 


BD Ti; 


Hamen-Laerge 

Sprung, wenn Laense = 2 

Ausgabe Jez Mamers me ler ne 
ausseben 0 oO LA DL 
anssadresse Link) nach K,'r 

zum naechsten Namen _ 


Sprung: immer, ; 


..zur Tastaturpuffer-Einsabe 


Veraleich 
der Hamen-Laensen 
SPrung zum Weitersuchen. wenn ungleich 
ver9leich der 
Hamen 


SPrun®g zum Weitersuchen, wenn un®@leich 


Hame gefunden 
aktuelles EHSIL-Ende nach AG: #A7 retten 
File-Anfans-Link nach #49, #3 retten 


Sprung‘ ımmer- 

sA3,A4 = 9 

Fla9s initialisieren 

File-Hamen einlesen 

Frusefen. ob Name worhanden_ 
+. 


File-Anfans-Vektor nach £Ar7 


ELR HOME 
zA3.3A4 = 8 


Flas®s initialisieren 
File-Namen einlesen 


Frusten. ob Name vorhanden 
"Arm 
File-Ende 
eire 
O setzen 
£A3,th4 = a 
VIEH & RESCUE 
Fla® auf "AbsFeichern" setzen 
alUT OF MEMÜRY 777 
" TOUTPIT-YPektor wiederherstellen 


Aussabe' "OUT OF MEMÜR'Tr" 


Bild 4.2.3 (Teil 7) 
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4.3 FIND 


4.3 FIND 


FIND ist eine für den Programmierer sehr hilfreiche Funktion. 
Nicht selten kommt es vor, daß bestimmte Textteile, Zahlen oder 
Befehlsworte im Programm gesucht werden, wenn man einige Anderun- 
gen daran vornehmen mochte, FIND spürt diese Stellen im Programm 
auf. 


Da das VC-20-Betriebssystem diese Funktion nicht in sich birgt, 
muß diese durch ein eigenes Programm realisiert werden. Das Ma- 
schinenprogramm VC-FIND (s, Bild 4.3.2) wird je nach Ihrem Wunsch 
in einem beliebigen Speicherbereich generiert. Wenn Sie es pau- 
schal am RAM-Ende ablegen lassen, wird es von selbst gegen über- 
schreiben geschützt. Weiterhin ist es koppelbar mit von Ihnen 
frei definierbaren Befehlen (s. Kap. 4). 


1@ REM YC-FIND 

20 REM AUFSUCHEN VON BELIEB. ZEICHENKETTEN 

30 L=183 

48 PRINTCHRSC147D "ABLEGEN DES M-POM: " 

sa PRINT:PRINT:PRINT"E = AM ENDE YOM BASIC-"SPCC4>"RAM-BEREICH" 

68a PRINT :PRINT:PRINT" (ZAHL) GEWUENSCHTE AN-"SPLC7>"RNFANGSADRESSE"SPL(B)" CDEZIMA 
L> vom" 

78 PRINTSPC<C?) "PROGRAMM" PRINT PRINT 

8@ INPUTAS:SD=VALCAS) : IFSDTHENISA 

30 IFAS<CH"E"THENMO 

108 EM=PEEK(S5)+2S6WPEEK (56) :AD=EM-L : ER=PEEK (643) +LSCHPEEK (644) 

13@ POKEEM-3. 197 :FÜKEEM-2, 206 :POKEEN-1 , 196 : AL=AD-7 : OOSUBZS® 

148 FOKEEM-S, AL POKEEM-4, AH% 

150 GOSUB2S0 :POKESS, AL :POKESE , AH% :AL=FRE (9) : SU=AL 

160 GOSUB26A 

178 FORI=SDTOSD+L-1 READA 'CH=CH+A 

218 FÜKEI,R:IFPEEK< ID=ATHENNEXT 'GOTO23Q 

228 PRINT:PRINT:PRINT"ROM-BEREICH |" PRINT" ANFANGSALRESSE HENDERN" STOP 
230 IFCH<>1SSSATHENPRINT PRINT "PROGRAMM IST FEHLER- HAFT EINGEGEBEN |!" :STOP 
240 NEW 

250 AHA=AD/2SE  AL=AD-2SCHAHR RETURN 

268 FRINTCHRE« 147)" M-POM-AUFRUF MIT!" PRINT 

27@ PRINTCHREC 189 "578" SDCHREC1S7)" : CZEICHENKETTEI"CHRE« 1469 PRINT 

2830 FRINT PRINT"WÄRTEN AUF "CHRELLEI "READY "CHREL 1469" 1 1" RETURN 

1860 DATA32, 113,0, 165.43, 133,164,169.44, 1 i64,168,8,177,163,133 

1018 DATAI66,2@0. 17, 163,240, 78, 177,163, 139. 167,268, 177,163, 133, 168, 208 
1020 DATA177.163,133, 169, 208, 177.163, 244,49, 162.8,193. 122, 240,4, 200 
1830 DATA234, 208, 242.192.8,244,10, 136.238. 163, 208, 2,230, 164, 234,208 
1040 DATA242.160,%9,177,122,248. 7,209, 163. 208. 218.200. 208.245, 169.13 
1054 DATA32. 122.242, 166. 168: 165, 169. 32, 209, 221,165. 166,133, 163. 165: 167 
1062 DATA133, 164,208. 167,76, 116,196 


















Bild 4.3.1 
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4.3 FIND 


BEDIENUNGSHINWEISE 


Das eigentliche Programm ist ein Maschinen-Programm, das ın den 
im Kapitel 5.2 beschriebenen Basic-Loader (s. Bild 4.3.1) einge- 
bunden wurde. Detailinformation bezgl. diesem karn dort in Er- 
fahrung gebracht werden. Der Basic-Loader wird normal mit RUN ge- 
startet. Sie werden gefragt, ab welcher Adresse (dezimal) das M- 
PGM generiert werden soll. Bei Eingabe von "E" wird es ans Basic- 
RAM-Ende gespeichert, wobei eventuell schon andere vorhandene M- 
PGMe in keinster Weise angetastet werden. 


Nachdem Sie sich fur einen Standort des Maschinenprogramms ent- 
schieden haben, drucken Sie RETURN, worauf Sie eine Anzeige auf 
dem Bildschirm erhalten, die Ihnen Auskunft daruber gibt, wie Sie 
FIND aufrufen und benutzen. 


Beispielsweise besitzen Sie einen VC-20 in Grundversion und las- 
sen VC-FIND am Ende des Basic-RAM generieren, In diesem Fall ru- 


fen Sie FIND per: 


M-PGM-AUFRUF MIT: 
syS 7570: (Suchwort ) (Return) 


Suchen Sie z.B. das Befehlswort POKE, dann ware einzugeben: 

sYS 7570:POKE (Return) 
Bei der Suche nach Befehlsworten konnen auch die gebrauchlichen 
Kurzel benutzt werden, also fur POKE: Taste "P" und SHIFT- + "0"- 
Taste. 
Als Resultat werden samtliche Zeilennummern auf den Bildschirm 


ausgegeben, die das Suchwort enthalten. 


PROGRAMM-EINZELHEITEN 


1.) Name: VC-FIND 
2.) Ausbaustufe: beliebig 
3.) Art des PGMs: Basic-Loader 
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zuna JSR 0073 _ 
2003 LOA ZB 
2a05 STA #A3 
2087 LDA $2C 
2a03 STA EA4 _ 
zadB LDY #300 
Zaal LOA C$A3Y, 7 
ZOaF STA #A6 
2011 INY 

2B12 ORA KEAR>, Tr 
2014 BEN +20654 
2816 LDA (E$A3). 'Yr 
Bis STA #A7 
28iA IMr & 
Z@1R LOAR ($A3>, Yr 
2010 STA #A8 
2@1F INY 

za2a LDR CEA3H, Tr 
2022 STR #9 
2024 INY u 
2a25 LDA ($A3>.%V 
2027 BEQ $295A 
za29 LIx #00 
Za2R CHF HPR.K) 
za2D BER #2433 
2a2F INY 

2030 HOF 

2031 BNE #2025 


2033 CPr #F00 u. 


2035 BEN $2041 
2037 DEY 

zaaa INC #Aa 
zaaA BNE #203E 
2030 INC #A4 
Za3E NOP 

2U3F BNE 2033 
2041 LDr Head 
2043 LOA CF7RAI,Y 
2445 BEN #204E 
2047 CMP <EA3D,Y 
2049 BHE #2925 
284B IN’Y 

2040 BNE #2043 
204E LDA #$+80 
20sa JSR SFRrA 
2053 LDX $A8 
2053 LDA £A9 
2057 JSR $DDCO 
zasa LDA #Aß 
285C STA #A9 
2esE LOA £A7 
2a6a STA #A4 
2062 _BNE #200B 
2064 IMP 80474 


4.3 FIND 


_Hole Zeichen nach DorpelPurkt 
BASIL-Anfangs-Vektor nach AS. Fn4 


Yektar EAS: Ar? wird auf 
Anfanazadresse der Folsezeile 
gerichtet, 


Adresse =U =; terti9 


Momentane Zeilennummer 
nach £A&, $A3 


Zeilenzeichen 

Sprung bei Zeileende 

Zeilenzeichen mit 
Suchwartanfansgszeichen vwer#leicher 

Suchwartanfansszeichen ®leıch 


Spruna' immer 


Addition ZA3. #A4el AI. EA4ı+T7 tertıa 





Suchwortzeichen 

Suchwort in Zeile 3efunden 
Zeilenzeichen 

un®leiche Zeichen => weitersuchen 


Sprun®' Immer 
CR 
ausgeben 
Zeilennummer 
ausgeben 


sA3,£A4 = EA. 7 


"zum READ'T-Modus 


Bild 4.3.2 
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4.3 FIND 


4.) Anzahl der Bytes 
des Basic-Loaders: 1207 
des M-PGMs: 103 


5a) Benutzte Variablen im Basic-Loader: s. Kap. 5.2 


5b) Benutzte Adressen im M-PGM: 
SA3,AA Anfangsadresse der momentanen Zeile 
SA6 ,A7 Anfangsadresse der Folgezeile 
SA8,A9 Momentane Zeilennummer 
6.) Listings 
des Basic-Loaders: Bild 4.3.1 
des M-PGMs: Bild 4.3.2 
7.) Erlauterungen zum Basic-Loader werden in Kap. 5.2 gegeben und 


zum M-PGM implizit im Listing (Bild 4.3.2), 


4.4 INTELLIGENTES BREAK/CONT 


Eine gebrauchliche Methode zur Fehlersuche in Basic-Programmen 
ist es, an markanten Stellen STOP-Befehle einzufügen. Der Pro- 
grammierer hat dadurch die Moglichkeit, die bis dahin errbeiteten 
Daten zu uberprufen, das Programm zu andern und gegebenenfalls 
mit CONT weiterzuarbeiten, CONT funktioniert aber nur, wenn das 
Programm nicht geandert wurde, denn eine Programmanderung hat zur 
Folge, daß alle Variablen geloscht und alle Programmzeiger zu- 
ruckgesetzt werden. 


Die hier vorgestellte Maschinensprache-Routine erlaubt es, Pro- 
gramme ohne Datenverlust zu editieren und danach mit CONT oder 
GOTO (Zeilennummer) weiterzuarbeiten, Einige Punkte sind jedoch 
zu beachten: 


- Stringvariable, denen in einer Programmzeile ein String zuge- 
ordnet wird (z.B. AS$S="ABCDE"), mussen am Programmanfang stehen 

- der STOP-Befehl und die letzte Programmzeile dürfen nicht ver- 
andert werden 

- es darf keine Zeile angehangt werden (Zeilennummer > Nummer der 
letzten Zeile) 
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4,4 Intelligentes BREAK/CONT 


BEDIENUNGSHINWEISE 


Das Maschinensprache-PGM wird mittels dem Basic-Loader (s. Bild 
4.4.2) je nach Wunsch am Basic-RAM-Ende oder ab beliebiger vorge- 
gebener Adresse generiert. Der hier verwendete Basic-Loader er- 
£fullt außer der M-PGM-Generierung noch einen weiteren Zweck, was 
im Kapitel 5.2 "Ein spezieller Basic-Loader" eingehend erlautert 
wird. Der Basic-Loader zeigt die Adresse an, in die per SYS-Be- 
fehl gesprungen werden muß, wern BREAK/CONT aktiviert werden 
soll. 


Das folgende kurze Beispiel (s. Listing in Bild 4.4.1) soll im 
kurzen die Vorteile von BREAK/CONT verdeutlichen. Dieses Demo-PGM 
wird eingegeben und mit RUN gestartet, nachdem BREAK/CONT akti- 
viert worden ist, 


10 INPUT A : STOP 
20 PRINT A : STOP 
30 INPUT B : STOP 
40 PRINT B : STOP 
50 PRINT A+B 

60 END 


Bild 4.4.1 


Der INPUT-Befehl in Zeile 10 erwartet von Ihnen die Eingabe einer 
Zahl (mit anschließendem Return). Aufgrund des STOP-Befehls er- 
halt man unmittelbar danach die Systemmeldung: 


BREAK IN 10 
READY. 


LISTen Sie nun die Zeile 50 per LIST 50 aus und verändern Sie die 
PRINT-Anweisung zu: 
50 PRINT A+B*B 


und lassen Sie das (veränderte !! PGM fortsetzen per CONT (Re- 
turn). In einem solchen Fall hätten Sie, wie anfangs erklärt, 
sonst immer die Systemmeldung "CAN’T CONTINUE" erhalten, Jetzt 
jedoch wird das PGM tatsächlich in Zeile 20 fortgeführt, und die 
dortige PRINT-Anweisung schreibt den Wert auf den Bildschirm, den 
Sie vorher eingegeben haben. 
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4,4 Intelligentes BREAK/CONT 


Sie konnen in dieser Weise fortfahren und nach jedem STOP aus dem 
PGM herausgehen, um nach Veranderungen per CONT oder GOTO (Zei- 
lennummer) ohne Datenverlust sich weiter durch das PGM durchzuar- 
beiten. 


Wahrend die beim COMMODORE-TOOLKIT bekannten Funktionen TRACE und 
STEP nur die passive Beobachterrolle ermoglichen, liefert BREAK/- 
CONT ein nutzlich einsetzbares aktives Hilfsmittel fur die PGM- 
Editierung und ist somit eine gut einsetzbare Betriebssystem- 
Hilfsroutine, 


PROGRAMM-EINZELHEITEN 


1.) Name: BREAK/CONT 
2.) Ausbaustufe: beliebig 
3.) Art des PGMs: Betriebssystem-Zusatzroutine 


4.) Anzahl der Bytes 
des Basic-Loaders: 1739 
des M-PGMs: 207 


Sa) Benutzte Variablen im Basic-Loader: 
siehe Kap. 5.2 "Ein spezieller Basic-Loader" 


5b) Benutzte Adressen im M-PGM: 


500,01 Zwischenspeicher fur Feldende-Vektor 

502,03 Zwischenspeicher fur Variablenanfang- 
Vektor 

504 Zwischenspeicher fur die Große der er- 
folgten PGM-Anderungen 

$3D ,3E Startadresse fur CONTINUE 

SFB,FC Zwischenspeicher fur Feldbeginn-Vektor 

SFD,FE Zwischenspeicher für CONTINUE-Start- 
adresse 

SFF Art der PGM-Anderung: 


=$00, wenn PGM großer geworden ist 
=$FF, wenn PGM kleiner geworden ist 
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4,4 Intelligentes BREAK/CONT 


6.) Listings 
des Basic-Loaders: s. Bild 4.4.2 
des M-PGMs: s. Bild 4.4.3 


7.) Erläuterungen zum M-PGM: 


Teil 1: Zeilen 2000 - 200A 

Andert den Vektor "Basic-Warmstart", Dieser Vektor enthalt 
nach Durchlaufen dieses Teils die Adresse vom Teil 2 des M- 
PGMs. 


18 REM BREAK/CONT 

28 REM FKT. "CONTINJE" IST HIERMIT NACH POM-VERRENDERUNG MOEGLICH 

30 L=207 

48 PRINTCHR$<147Y>" ABLEGEN DES M-POM: " 

s@ PRINT :PRINT:PRINT"E = AM ENDE YWOM BASIC-"SPC(4) "RAM-BEREICH" 

68 PRINT :PRINT :PRINT"<ZAHL> BEWUENSCHTE AN-"SPC<C7) "ANFANGSADRESSE"SPC<8)" CDEZIMA 
L> vom" 

78 PRINTSPG<72 "PROGRAMM" PRINT: PRINT 

88 INPUTA$:SD=VAL <CA$) : IFSDTHENL6®@ 

98 IFR$CY"E"THEN4O 

108 EM=PEEK (SS) +256WPEEK (56) :AD=EM-L : ER=PEEK (643) +256MPEEK (644) 

118 IFEM=ERTHEN138 

128 IFPEEK(CER-3)<>1970ORPEEK<ER-2)<DZBSORPEEK (ER-1)<DLISTHENLSO 

138 POKEEM-3, 197 : POKEEM-2, 286 : POKEEM-1, 196 :AD=AL-7 : GOSUB2S® 

148 POKEEM-S, AL: POKEEM-4, AHA 

158 GOSUBZSB : POKESS, AL : POKES6, AHA : AL=FRE (9) :SD=AD 

160 GOSIB268 

178 FOÜRI=SDTOSD+L-1 : RERDAS 

188 IFA$<"H" THENA=VAL (AS) :CH=CH+R :GOTOZ1® 

198 IFA#>"H"THENAD=VAL(RIGHTFCAF,LEN(AF)-1)) :CH=CH+AD : AD=AD+SD : GOSUB2SB ' A=AL :GOT 
0218 

288 A=AHr 

z18 POKEI,RA: IFPEEK«CI>=ATHENNEXT : GOTO238 

228 PRINT :PRINT:PRINT"ROM-BEREICH !" :PRINT"ANDERE WAHL" :PRINT"FUER ANFANGSADRESS 
E":STOP 

230 IFCHCIZ4BB3THENPRINT :PRINT"PROGRAMM IST FEHLER- HAFT EINGEGEBEN || 1":STOP 
248 NEW 

258 AHR=AD/2S6 : AL=AD-ZI6HAHR : RETURN 

2668 PRINTCHR$«C 1473 "M-PGM-AUFRUF MIT: ": PRINT 

278 PRINTCHR$( 18) "SYS" SDCHREK 146) : PRINT 

280 PRINT"WARTEN AUF "CHR#&C1B) "READY" CHR$C146)" | 1" RETURN 

1 ’ ’ ’ ’ ’ ’ ’ ’ ‘ ’ ’ ’ ‚ ’ 

1818 DATA197,1934, 122, 1932,123,32,115,0,170, 240,248, 162,235,144,6,32 
1828 DATA121, 197,76, 223,199, 72,165,49,133,2,165,46,133,3,169,49 

18380 DATA133,45,133,8, 163,38, 133,46,133,1,169,47,1393, 291, 169,48 

1848 DATA133, 292,165, 61,133, 2593, 169, 62, 133, 294, 169,188, 141,2,3,169 
1858 DATAH, 141,3,3, 184, 76,156, 196, 168,0, 132, 259,56, 169, 45,229 

1868 DATAB,133,4,16,4,169, 255,139, 235, 169,45,1393,49,165,46,133 

19078 DATASO,24,165,2,101,4,133,49, 169,3, 101,259, 139,46, 24,165 

1888 DATA2S1,181,4,1393,47,169, 252, 101,259, 133, 48,96, 160,0,177,253 
1898 DATRA2081,0,240, 38, 201,58, 240, 34,24, 169,253, 181,4, 1393, 253, 169 

1180 DATA2S4, 181.255, 199, 294, 165,253, 1393, 61, 165, 294,133, 62, 169, L14, 141 
1118 DATA2,3,169,H,141,3,3, 76, 128, 196, 56, 165, 253,233, 1,1393 

1128 DATAB, 169,254 ,233,0,1393,1,177.8,201, 144,208, 203, 248,214 
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4.4 


FASSTE] 
PR 41a FF 
za 
za 


Intelligentes BREAK/CONT 


LÜR #E0r 
STA Zasie 
LIA #20 
STH A353 


zaaA RTS 


ZEIEIE 
ERBE 
zei 
PAUBBE, 
2615 
2A1S 
2E13 
ZEILE 
KILL 
zur 
zu22 


JMr 
JSR 
SI 
sTY 
JER 
TAX 
BEI! 
LU 


EIER 
3LI6KI 
gr 
£’B 
za? 


FEHCE 
#£FF 

El sEhE 
JSR 2573 
mr SC7EL 


2umzs PAR 


2026 
EA PS 
ZEEA 


ei STA 





zus 
zus 
zus 
east 
ZESD 
2uSr 
zul 
ZAEE 
ea 
Pur 
2469 


ir STH 
'E 1.0 


 LIA 


> S5TA 


LDA #20 
STA FRE 
LIR £2E 
a3 
31 
an 
zur 
E zer 
£2E 
zul 
22H 
E39.) 
Eee 
<FC 
E zeit) 
E31] 
t3E 
$FE 
#0 
saske 
#+20 
aaa 


IF 
STA 
STA 
L.DA 
STIA 
STA 
L.DA 


STA 
LOA 
STA 


SsTtA 
ULLA 


LDA 
5Ta 
FLR 
Mr 
LI'r 
str 
SE 
DA 
SBC 
STA 
BL. 
LDA 
STA 
LDA 


3.43, 
He 
FF 


7a 
sad 
su4 
$2049 
HEFF 
£FF 
sZzD 


Neil 1 


Teil 2 


Teil 3 


Teil 4 


STA 
LI 
STA 
} Di 
re LÜR 
ADL 
STA 
5 LOA 
AL 
. Sm 
Sch 
“ LDA 
HI. 
STÄ 
 L.DA 
' ADC 
STA 
: SE 

Lür 
ı.UA 
I 1 
BEi! 
CMr 
BEIM 
j&]8 I, 
Lu 
AT 
STA 
- LORA 
ALL 
STA 
LA 
STA 
LLA 
STA 
LDA 
STA 
@ LA 
STR 
mr 
SEl 
3 DA 
SEL 
STH 
LIA 
3 SBC 
25 STA 
LDA 
CMP 
| Zac BNE 
j 2ACD BEU 








zuse 
za 
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tE 


tFE 
Fund 
E21 
+Fi; 
EFF 
Fish 


Hr 


„Erle. 


Hei 
tzaßri 
#EJH 
tehEn 


Er 
Erd 
Er 
$FE 
£Fr 
tr 
£F]Ji 
ZA 
trE 
SE 
Fee 
same 
He 
Fra 
ua 


srl 
LEID 
E22 
SFE 
Heid 
+] 


sag). 


EFT 
+2093 
s2uaRs 


Fort:. 
Teil 4 
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4.4 Intelligentes BREAK/CONT 


Teil 2: 200B - 2022 

Eingabe-Warteschleife: dieser PGM-Teil ist aus dem VC-20-Be- 
triebssystem kopiert, es fehlt nur der Teil, der die Adresse 
fur CONT uberschreibt und damit CONT unmoglich machen wurde. 
Der Sprung in die Betriebssystem-Routine "Einfugen und Lo- 
schen von Programmzeilen” geschieht über Teil 3. 


Teil 3: 2025 - 2055 

Retten der Adresse für CONT, 

Retten der Vektoren auf: 

- Beginn der Variablen (Basic-PGM-Ende) 

- Beginn der Felder 

- Ende der Felder, 

Vektor "Ende der Felder" nach $2D,2E (Anfang der Variablen), 
Andern des Vektors "Basic-Warmstart", so daß er auf den An- 
fang des Teiles 4 zeigt, 

Sprung in die Betriebssystem-Routine "Einfügen und Loschen 
von Programmzeilen” ($C49C) 


Teil 4: 2058 - 20CD 

Nach Ruckkehr aus der Betriebssystem-Routine "Einfügen und 
Loschen von Programmzeilen" enthalten die Speicherstellen $2D 
und S$2E die neue Adresse vom Ende der Felder. Diese Adresse 
wird dem Vektor "Ende der Felder" ($31,32) übergeben. 

Aus den Vektoren "Ende der Felder NEU” und "Ende der Felder 
ALT" wird die Große der Programmanderung errechnet und in 
Adresse $04 abgelegt. Wurde das Basic-PGM kleiner, dann ist 
dieser Wert negativ (Bit 7 = Vorzeichen) und in Adresse SFF 
wird #5$FF eingeschrieben. Ist dieser Wert positiv, dann ent- 
halt die Adresse $FF den Wert 0. 

Die geretteten Vektoren in den Adressen $00 bis 03 und $SFB,FC 
werden durch Addition des Inhalts von $04 aktualisiert und zu 
den Adressen für die Zeiger auf: 

- Beginn der Variablen 

- Beginn der Felder 

gebracht. 


Die Adresse für CONT zeigt auf #500 (Zeilenende) oder #53A 
(Doppelpunkt). Ist das nicht der Fall, geschah die Programm- 
änderung vor dem STOP-Befehl und auch dieser Vektor wird ak- 
tualisiert und zurückgebracht. 
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4.5 VC-OLD: NEW RÜCKGÄNGIG MACHEN 


Ist es Ihnen auch schon einmal passiert, daß Sie nach einer Kaf- 
feepause zu Ihrem Rechner zuruckgekehrt sind und fast schon re- 
flexıv, gewissermaßen aus dem Gefuhl der Grundlichkeit heraus, 
NEW eıngaber”? Sicherlich schon, Meistens waren dann nur noch Ba- 
sic-Leichen im Rechner. Wie ist es Ihnen aber ergangen, wenn Sie 
sich dann nach der NEW-Eingabe erinnerten, daß Sie vorher ein 
Programm eingegeben hatten, welches Sie noch nicht auf Kassette 
oder Diskette gespeichert hatten? 


Es wırd nachfolgend ein Programm vorgestellt, welches die Funk- 
tion OLD (also die Umkehrung von NEW) realisiert. Naturlich ist 
das keıne Hexerei,. Es wird hierbei nur die Tatsache ausgenutzt, 
daß das Betriebssystem des VC-20 bei NEW das Basic-Programm in 
keinster Weise anruhrt, sondern nur den Variablen- beziehungswei- 
se Feld Anfangs-Vektor zurucksetzt, Mit Hilfe von VC-OLD werden 
diese Vektoren eınfach wieder auf ihren ursprunglichen Wert ge- 
setzt, so daß das - nach wie vor vorhandene - Programm wieder 
benutzt, also auch gelISTet und abgeSAVEd werden kann. 


BED TENUNGSHINWEISE 


VC-ÖLD ist ein kleines M-PGM und ist von sich aus frei verschieb- 
bar (relocatable) und nicht nur uber den speziellen Basic-Loader 
frei generierbar gemaß Benutzeranforderung, Es laßt sich uber un- 
seren speziellen Basic-Loader in die Pallette von VC-20-Betriebs- 
system-Zusatzroutinen am Basıic-RAM-Ende (Eingabe E (Return) 
nach PGM-Start: weitere Hinweise hierzu im Kapitel 5.2 "Ein spe- 
zieller Basic-Loader") einreihen, 


Fur den Fall, daß aber Ihr Zusatzbetriebssystem gerade nicht ge- 
laden ist - man sollte es nicht fur moglich halten, aber die un- 
gunstigsten Fehlbedienungen geschehen meistens dann, wenn man 
nicht darauf vorbereitet ist - ist es ratsam, VC-OLD derart abzu- 
speichern, daß es beim Laden im Kassettenpuffer generiert wird 
und dieses somit das Basic-PGM nicht verletzt, Dies geschieht 
einfach folgendermaßen: 
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1.) Der Basic-Loader zu VC-OLD (siehe Bild 4.5.1) wird ge- 
startet. Die Frage nach der Anfangsadresse wird durch 
Eingabe von 830 (Return) beantwortet. Die Adresse #830 
gehort zum Kassettenpuffer (weiteres hierzu sıehe Teil 
"Laden und Abspeichern”), es konnte genauso gut eıne 
andere genommen werden, nur darf das M-PGM nıcht aus 
dem Kassettenpuffer herausragen. 830 laßt sich even- 
tuell besser bearbeiten als eine krumme Zahl. Das M-PGM 
VC-OLD steht nach dieser Eingabe im Bereich #830-#893, 


2.) Datassette bzw. Floppy zum SAVEn vorbereiten. 


3.) Im Direkt-Modus wird nun eingegeben; 
FOR I=0 TO 63 : PS=PS+CHRS(PEEK(830+1)) : NEXT : 
SAVE P$ (Return). Für Floppys muß der letzte Befehl 
sein: SAVE P$,8. 
Hiermit wird erreicht, daß lediglich ein PGM-Name ohne 
PGM (der Basic-Loader von VC-OLD enthalt ja den NEW-Be- 
fehl in Zeile 240) auf Band bzw. auf Floppy abgeSAVEd 
wird. 
Storen Sie sich nicht an den seltsamen Zeichen, die Sie 
beim SAVEn auf dem Bildschirm sehen werden. Diese kom- 
men dadurch zustande, daß der VC-20 versucht, den "PGM- 
Namen", namlich P$ anzuzeigen. P$ ist aber kein Name, 
sondern hinter P$ verbirgt sich das ganze M-PGM VC-OLD, 
Nach Beendigung des Abspeichervorgangs drucken Sie die 
Tasten (Stop) + (Restore), damit der Cursor seine An- 
fangsfarbe zurückerhalt. 


Wenn Ihnen nun jetzt in Zukunft das "NEW-Malheur" unvorbereitet 
passiert, so laden Sie einfach das soeben abgespeicherte "Pro- 
gramm" (es besteht ja nur aus einem Header) mit LOAD, drücken da- 
nach ebenso wie nach dem SAVE-Vorgang die Tasten STOP + RESTORE 
und geben ein: SYS 833 (Return), 


Probieren Sie es mal selbst aus, Diese kleine Utility kann eine 
sehr wertvolle Hilfe sein, wenn Sie einmal ein PGM ausprobieren 
wollen, es vorher aber nicht abgespeichert haben. Wenn dann ein 
Programm-Absturz erfolgt, indem nichts mehr geht, noch nicht ein- 
mal irgendeine Eingabe uber die Tastatur, dann bleibt normaler- 
weise nichts anderes ubrig als den VC-20 abzuschalten. Das muhsam 
eingegebene PGM ist dann aber auch hin. Nun, mit Hilfe von VC-OLD 


143 


4.5 OLD = Umkehrung von NEW 


gibt es einen eleganteren Ausweg aus dieser Misere: Sie drucken 
auf die Reset-Taste (falls vorhanden) oder bewerkstelligen RESET 
auf andere Weise (mehr dazu in der Begriffserklarung für "RESET" 
im Anhang A.2), laden VC-OLD und rufen dies, wie oben beschrieben 
auf. 


18 REM VC-OLD 

20 REM NEW RUECKGRENIG MACHEN 

30 L=64 

4& PRINTCHR$(147 > "ABLEGEN DES M-PGM:" 

52 PRINT:PRINT:PRINT"E = AM ENDE VOM BASIC-"SPC(4)"RAM-BEREICH" 

54 PRINT: PRINT:PRINT"<ZAHL> GEWUENSCHTE AN-"SPC<C?)"ANFANGSADRESSE"SPC(BI"CDEZIMA 
L> vom" 

78 PRINTSPC(73 "PROBRAMM" : PRINT: PRINT 

88 INPUTA$:SD=VAL (As): IFSUTHENI168 

98 IFR$<>"E"THENAA 

106 EM=FEEKSSI+ZSSHFEEK (56) : AD=EM-L : ER=PEEK (643) +256WPEEK (644) 

13@ POKEEM-3, 197: POKEEM-2, 206 : POKEEM-1., 196 : AD=AD-7 : BOSUB25Q 

14@ POKEEM-5, AL: POKEEM-4, AHA 

158 GOSUB2S8 : POKESS, AL : POKES6. AHA: AL=FRE (9) : SD=AL 

168 5OSLB268 

170 FORI=SDTOSD+L-1  READA$ :A=VAL CAS) 

218 CH=CH+A:POKEI,A: IFPEEK(I>=ATHENNEXT : GOTO23® 

228 PRINT :PRINT:PRINT"ROM-BEREICH !":PRINT"ANDERE WAHL" :PRINT"FÜUER ANFANGSADRESS 
E":STOP 

230 IFCH<DBOBSTHENPRINT : PRINT"PROGRAMM IST FEHLER- HAFT EINGEGEBEN !!1":STOP 
248 NEW 

258 AHZ=AD/2SE  AL=AD-2SEMAHR RETURN 

268 PRINTCHRE(147)"M-PGM-AUFRUF MIT": PRINT 

278 PRINTCHREC183"SYS"SDCHREC146) : PRINT : PRINT: PRINT 

280 PRINT"WARTEN AUF CHR$< 18) "READY"CHR®C1469" | 1" RETURN 

1 ’ ‚251,208, 192,24,181,43, 168, 

10108 DATA133, 163, 152, 181,44, 2088, 145,43, 1393, 164, 186, 177, 163, 178,208, 17 

1828 DATA163,2408,8,177,163,1933,164, 194,169, 144,239, 209, 152,181,169,133 

1830 DATA43,133,47,133:49,169,0,101,164, 133, 46,139, 48.139,58, 96 


Bild 4.5.1 


Noch schneller spielt sich naturlich das eben Beschriebene ab, 
wenn VC-OLD sich im Bereich Ihrer Betriebssystem-Zusatzroutinen 
am Basic-RAM-Ende befindet. Nach NEW bzw. RESET rufen Sie VC-OLD 
dann einfach mit SYS Anfangsadresse (Return) auf, wobei die An- 
fangsadresse ja vom Basic-Loader angegeben wird und diese von Ih- 
nen notiert wird. 


Die wahrscheinlich eleganteste Losung wird wohl sein, wenn Sie 
anstatt von SYS Anfangsadresse (Return) einfach nur OLD (Return) 
eingeben, was bei Verwendung des PGMs VC-COMMAND (siehe Kapitel 
4.1) realisiert werden kann. 
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PROGRAMM-EINZELHEITEN 


1.) Name! VC-OLD 

2,) Ausbaustufe: beliebig 

3.) Art des PGMs: Betriebssystem-Zusatzroutine 
4.) Anzahl der Bytes 


in 


—_ 


_ 


— 


des Basic-Loaders: 1025 
des M-PGMs: 64 


Benutzte Adressen: 


SA3 LOW-Link zur nachsten Basic-Zeile 
SA4 HIGH-Link " " > ni 
Listings 
des Basic-Loaders: siehe Bild 4.5.1 
des M-PGMs: siehe Bild 4.5.2 


Erlauterungen zum M-PGM: 


Teil 1: Zeilen 2000 - 2005 

Es wird das Ende der ersten Basic-Zeile gesucht, also die er- 
ste Null, welche nach den ersten vier Bytes des Basic-Anfangs 
folgt (mehr hierzu siehe Kap. 2.1 "Speicherorganisation bei 
einem Basic-Programm"), 


Teil 2: Zeilen 2007 - 2018 

Das Register Y enthalt den Offset zwischen dem Ende der 1. 
Basic-PGM-Zeile und dem Basic-Anfang, In diesem Teil wird der 
Link zur 2, Basic-PGM-Zeile bzw. zum Ende des Basic-PGMs 
(falls es nur aus einer Zeile besteht) einfach durch Addition 
vom Offset Y zur Basic-Anfangsadresse errechnet. Dieser Wert 
wird in die ersten 2 Bytes der ersten Basic-PGM-Zeile und 
zwecks weiterer Verarbeitung in die Adressen $A3 und $A4 hin- 
eingeschrieben, 


Teil 3: Zeilen 201A - 2029 


Das Adreßpaar $A3,5A4 zeigt auf das 1. Byte des Link-Paares, 
welches in der Basic-Folgezeile am Anfang steht, jedoch sei- 
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nerseits auf die darauffolgende Folgezeile zeigt, 
Der Mechanismus in Teil 3 tut also nichts weiter als von Link 
zu Link springen, bis ein Link-Paar aus 2 Nullen besteht. 


Teil 4: 


Zeilen 202B - 203F 


2 Nullen als Link-Paar kennzeichnen das Basic-PGM-Ende. Es 
verbleibt nur noch die Aufgabe, die erkannte Basic-PGM-Ende- 
adresse um 2 zu erhohen und diesen Wert (= 2 Bytes) in die 
Speicherzellen fur die Vektoren: Variablenanfang ($2D,S2E), 
Feldanfang (S2F,530) sowie Feldende ($31 ,532) hineinzuschrei- 
ben, 


zeıREı 
FAsI%P3 
zrıa3 
AH] 


207 


RUE 
za 
PASTE 
EZRIAT. 
ZUBE. 
ae 
zu12 
2213 
215 
2u1# 
Za15 


zuıA 


Alk 
zeıd 
zalE 





euas1 
2u33 
2a35 
aaa, 
zuaag 
zu 
zer >d 
Zar 


LIr 
INT 
LOA 


BNE s2002 


#3 


SER), Tr 





INT 

YA 
BUG 
ALIC 
LI 
STA 
STA 
TrA 
AUG 
IHrYr 
STA 
STA 
DE'r 
L.DA 
TAX 
IH'r 
AeA 


_BEW 


[DA 
STA 


STEG 
> BCC 


IN’ 


‚, TFA 


ADG 
=TA 
STA 
STA 
LDA 
Abo“ 
STA 
STA 
STA 
RTS 


EjaEel 
#20 
ser 
+31 
LE 74050 
FAd4 
tZE 
z20 
E32 


Offset 7 auf BASIC-Anfang + 4 stellen 


Spr, u. Ende der 1. Zeile nicht 9efundenr 


Yeitfsgset zur 2. Zeile 
EERB):O . SEECH, 1 = FIR. FEC +7 


und EAI,FA4 = FEB. #2 +7 


a  ——— feige 


K=LÜbh-Lirk 
val 


errung, wenn Y-lelffset fuer BASIC-Ende 


" A=HIGH-Link 


Era. 8A4 = MA 


Y=2 


Yariablenanfangvektor 
Zn. $Z2E = HAI. EA4 +7+2 


Feldantfansvektor = Feldendevektor = 
„“ariablenanfangvektor 


Bild 4.5.2 
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4.6 VC-CHECKSUM 


Stellen Sie sich nicht auch ab und zu die Frage: "Habe ich wirk- 
lich das gleiche Programm geladen, welches ich vor 14 Tagen abge- 
SAVEd hatte ?" oder "Ist mein Programm auch nach einem Programm- 
lauf das gleiche wie zuvor ?" Letztere Frage ist keinesfalls ab- 
wegig. Denken wir nur an Programme, die voll gespickt sind mit 
PEEK- und POKE-Be£fehlen. Wie schnell kann es passieren, daß man 
dabei aus Versehen ins eigene Programm hineinPOKEd. 


Die eigentlich Methode, seine Daten bzw. Programme per Checksum- 
menprufung auf Fehlerfreiheit zu überprüfen, wird von den meisten 
als praktisch und einfach akzeptiert. VC-CHECKSUM fuhrt diese Be- 
rechnung durch und laßt sich in zweierlei Hinsicht benutzen: 


— Checksummen-Berechnung fur Basic-Programme 
- Checksummen-Berechnung fur beliebige Speicherbereiche 


Die Checksummen-Berechnung besteht darin, daß die Werte aller By- 
tes des Basic-Programms bzw. des angegebenen Speicherbereichs ad- 
diert werden. 


VC-CHECKSUM wird je nach Wunsch in einem beliebigen Speicherbe- 
reich generiert. Wenn Sie es pauschal am RAM-Ende ablegen lassen, 
wird es gegen überschreiben geschutzt und sie konnen es immer 
dann aufrufen, wenn Sie eine Checksummenberechnung benotigen. 
Weiterhin ist es koppelbar mit von Ihnen frei definierbaren Be- 
fehlen (s. Kap. 4.1). 


BEDIENUNGSHINWEISE 


VC-CHECKSUM ist ein Maschinen-Programm (s. Bild 4.6.2), das in 
den im Kapitel 5.2 beschriebenen Basic-Loader (s. Bild 4.6.1) 
eingebunden wurde. Detailinformation bezgl. diesem kann dort in 
Erfahrung gebracht werden. Der Basic-Loader wird normal mit RUN 
gestartet. Sie werden gefragt, ab welcher Adresse (dezimal) das 
M-PGM generiert werden soll. Bei Eingabe von "E" wird es ans Ba- 
sic-RAM-Ende gespeichert, wobei eventuell schon andere vorhandene 
M-PGMe in keinster Weise angetastet werden. 
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18 REM VC-CHECKSUM 

20 REM CHECKSUMMENBERECHNUNG YOM BASIC-FGM ODER YON ANGEGEBENEM SPEICHERBEREICH 
20 Le134 

42 FRINTCHREL14FI"ÄBLEGEN DES M-Füm:® 

Sa PRINT:FRINT:PRINT"E = AM ENDE YOoM BASIC-"SPCC4) "RAM-BEREICH" 

68 FRINT:PRINT:PRINT"SZAHL? GEWUENSCHTE AHN-="SPC« 73" ANFANGSADRESSE"SPCKB)"KDEZIMA 
L> vom" 

7a FRINTSPC£?72"FROGRAMM" :FRINT:PRINT 

Sa INFUTAS:SD=VALCAF>: IFSTTHENIER 

»@ IFAtC>"E"THEN4B 

198 EM=PEEKUSTI+HZSSHFEEK (IE) AD=EM-L 'ER=FEEK 643) +256HPEEK 644) 

11a IFEM=ERTHEN13M 

128 IFFEEKCER-3> CH 137URPEERSER-27TDZÖSURPEEKKER-13<CP1IGETHEN1SR 

132 FÜKEEM-3, 137: POKEEM-Z, 206 POKEEM-1, 196 : AD=Al-7 :G0SUB258 

148 POKEENM-5, AL: PÜKEEM-#, AHX 

15 GOSUBZSE POKESS. AL: FOKESE AHA AL=FRECYI :SD=AD 

1eAa GOSLBZ2EO 

178 FORI=SUTOSD+L-1 READAS 

188 IFAFL"H"THENA=YALCAF) CH=CH+A'GUTO210 

1379 IFRAE>'H"THENAD-YALCRTEHTFCRF,LENGASI-1 59: CH=CHHAN  AL=AD+SD: GNSLIB2SR : A=AL 'GOT 
ze 

2a H=AHr 

1a FÜKEI.M: IFPEEK“ IT? =HTHENNEXT  ONT0230 

za FRINT PRINT PRINT"ROM-BEREICH !":PRINT"ANDERE WAHL" :PRINT"FLUER ANFANGSADRESS 
E":STDP 

za0 IFCHCILZZASTHEHFRINT FRINT"FRUSRAMM IST FEHLER- HAFT EINGEGEREN !!1":STOP 
4 HEN 

250 AHR=AD/ESE AL=ÄAD-25EHAHR RETURN 

260 FRINTEHREW LH" M-FOM-ALFRLF MIT" SPRINT 

Zr PRINTCHRECISIYSTS"SDEHREC1S73" , B"'CHRSEC146) FRINT"FÜER BASIG-PGM" 

a FRINT FRINTCHR&« 189" 578" SDEHRSC1S75" , DEZ-R. DEZ-E"CHR$K 146) 
ad FRINT"R=ANFANGSADRESSE " FRINT"E=ENDANRESSE" PRINT 

ad FRINT"WARTEN AUF "EHRECAB) "READYCHREG LEI" 1" a 

aaa BE ET PT TE EC HN, 

a1 DATAH.134,2593, 132. 294.169, 13,32, 122. 242,32, LER, H, 32. 205, 221 
iaza DATAIE9,13,32, 122, 2482.96,32,115:80:.169,.43, 133,291, 16%,44,133 
1a DATA2S2. 16%. 46, 133, 254, 169,49,192,293. 208,2. 190,254, 198, 253,76 
Ed LATALE2ZIH BE 115.0. 38, 138,805, 32, 247,219, 166,20, 164,21, 96 

1ase DATALEP,Q,141,179,9,141,180,3, 168. 165. 252, 197,254, 144,8, 200 
1a DATASD, ES, 197,251, 144,24, 177,251, 24,199, 179,3,141:179,3 
a7 DATALSZ,1909, 180,3, 141, 100.3, 209. 291. 208, 222.230, 292,288, 219,174 
1a DATA FF, 130,4, 96 











Bild 4.6.1 


Die Eingabe "E” wurde die Anzeige: 


SYS 16243,B 
SYS 16243, AE,EA 


auf dem Bildschirm zur Folge haben, wenn der VC-20 mit einer 8K- 
Byte-Speichererweiterung versehen ist. Wie werden diese beiden 
SYS-Befehle nun angewandt: 


Nehmen wir an, Sie haben ein Basic-Programm im Arbeitsspeicher 
und wollen eine CHECKSUM-Berechnung durchfuhren. Sie brauchen nur 


eingeben: 
SYS 16243,B (Return) 
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und erhalten daraufhin eine Zahl, die Sie sich irgendwohin notie- 
ren, falls Sie spater einmal einen Vergleich ziehen wollen. Wenr 
Sie übrigens den Basic-Loader in Bild 4.6.1 der Funktion CHECKSUM 
unterziehen, nachdem Sie in Zeile 240 das NEW durch END ersetzt 
haben, so erhalten Sie den Wert 41777. 


Der CHECKSUM-Wert fur Basic-Programme ist nicht unabhangig vor 
der Lage des Basic-Programms. Dies ist einfach zu verstehen, wenn 
man das Speicherungsprinzip bei einem Basic-Programm kennt (s, 
Kap. 2.D. Ein Basic-Programm im Arbeitsspeicher besteht ja kei- 
neswegs identisch aus den bei LIST angezeigten Zeichen, sondern 
ist durchsetzt von absoluten Adressen, die das VC-20-Betriebssy- 
stem zur Auseinanderhaltung der Zeilen benotigt. Deswegen ware 
also der CHECKSUM-Wert schon bereits dann ein anderer, wenn Sie 
das Basic-Programm um nur 1 Byte verschieben. Falls Sie den 
CHECKSUM-Basic-Loader mit der o.g. Veranderung der Zeile 240 in 
der Grundversion gespeichert haben, so erhalten Sie anstatt des 
Wertes 41777, den Wert 41699, 


Die zweite Benutzungsregel von CHECKSUM funktioniert in der Wei- 
se, daß Sie anstatt des B fur die Basic-Programm-überprufung die 
dezimale Anfangsadresse, gefolgt von einem Komma und der dezima- 
len Endadresse (incl. , eines von Ihnen gewunschten zu uberpru- 
fenden Speicherbereichs eingeben, Nehmen wir an, dieser Bereich 
liegt zwischen $2000 und $2100, so mußten Sie eingeben: 


SYS 16243,8192,8447 (Return) 
Die Adressenwerte konnen auch durch Variable oder beliebige Terme 


ersetzt werden, 


PROGRAMM-EINZELHEITEN 


1.) Name: VC-CHECKSUM 
2.) Ausbaustufe: beliebig 
3.) Art des PGMs: Basic-Loader 
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4.) Anzahl der Bytes 
des Basic-Loaders: 1610 
des M-PGMs: 134 
Sa) Benutzte Variablen im Basic-Loader!: s. Kap. 5.2 


5b) Benutzte Adressen im M-PGM: 


SFB,FC Speicher fur 1. DEZ-Wert 
= Vektor auf Speicherbereichsanfang 
SFD,FE Speicher fur 2. DEZ-Wert 


= Vektor auf Speichererbereichsende 
503B3,03B4 Augenblicklicher Checksummerwert 


6.) Listings 
des Basic-Loaders! Bild 4.6.1 
des M-PGMs: Bild 4.6.2 


7,) Erlauterungen zum Basıc-Loader werden in Kap. 5.2 gegeben und 
zum M-PGM implizit im gut kommentierten Listing (Bild 4.6.2), 


4.7 REM-INVERTIERER 


Sie werden sich vielleicht sagen: "REM-Invertıierer? Habe ich 
schon irgendwo gelesen, Ist nichts Neues." Im Prinzip haben Sie 
da sicherlich recht. Nur, haben Sie schon einen REM-Invertierer 
kennengelernt, bei dem 


- keine Einschrankung bei der Gestaltung der REM-Texte besteht 7? 
Wir haben zum Beispiel schon Beschreibungen in den Handen ge- 
habt, die besagten, daß Sie nach dem Eingeben von REM zwei 
Blanks schreiben mussen, etc. 


- keine Verkurzung der REM-Zeilen vorgerommen wird ? 
Mit anderen Worten, das Programm ist nach Benutzung der REM-In- 
vertierer-Funktion genauso gestaltet wie vorher, nur erscheinen 
die Texte in den REM-Zeilen in Revers-Darstellung. 


Der hier vorgestellte REM-Invertierer bietet diese Vorzüge. Es 


ist ein Maschinenprogramm (s, Bild 4.7.2), welches je nach Wunsch 
in einem beliebigen Speicherbereich generiert werden kann. Wenn 
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Sie es pauschal am RAM-Ende ablegen lassen, wird es gegen Uber- 
schreiben geschutzt und sie konnen es auch dann aufrufen, wenn 
Sie beliebige andere Programme im Arbeitsspeicher haben, Weiter- 
hin ist es koppelbar mit von Ihnen frei definierbaren Befehlen 


(s. Kap. 41). 


BEDIENUNGSHINWEISE 


1& REM REM-INVERTIERER 
34 L=169 

48 FRINTÜHREGL47I "ABLEGEN DES M-POM:" 

S@ PRINT PRINT:PRINT"E = AM ENDE VOM BASIC-"SPLC4) "RAM-BEREICH" 

6& PRINT:PRINT PRINT" CZAHL> GEWUENSCHTE AN-"SPCK7)"ANFANGSADRESSE"SPC(8)" CDEZIMA 
L> vom" 

7& PRINTSPC«7> "PROGRAMM" PRINT PRINT 

86 INFUTAF:SD=VALCAF) : IFSUTHENIE® 

9a IFAS<>"E"THEN4O 

180 EM=FPEEK(SSI+2S6HPEEK (56) :AD=EM-L :ER=PEEK (643) +256HFEEK (644) 

118 IFEM=ERTHEN1AB 

129 IFPEEK(ER-3)£>197ORPEEKCER-2ICHZOSORPEEK CER-1ICDLIGTHEN1S® 

130 PÜKEEM-3, 197 FOKEEM-2, 286 :POKEEM-1., 196 : AU=AD-7 : GOSUB2S@ 

148 POKEEN-S5. AL 'POKEEN-4 , AH% 

150 GOSUB2SA:POKESS, AL 'PÜKES6. AHA 'AL=FRE<9) :SD=AD 

160 GUSUB268 

178 FÜRI=SDTOSD+L-1:READAE 

18@ IFAS<C"H"THENA=VAL CHE) CH=CH+A:GOTO218 

198 IFASD"H"THENAD=VALCRIGHTECAF, LENSASD-13) :CH=CH+AD  AD=AD+SD : GOSUB2S8 A=AL :GOT 
0218 

208 A=AHA 

210 FOKEI,A: IFPEEKC II=HTHENNEXT :G0T0238 

228 PRINT:PRINT:PRINT"ROM-BEREICH !":PRINT"ANDERE WAHL" :PRINT"FUER ANFRNGSADRESS 
E":STOP 

230 IFCHCDZ4ZI6THENPRINT :PRINT"PROGRAMM IST FEHLER- HAFT EINGEGEBEN !11":STOP 
248 NEN 

250 AHA=AD/2S6 AL=AD-2SCMAHA RETURN 

268 PRINTCHRFC147)"M-POM-AUFRUF MIT:" PRINT 

27@ PRINTCHR$(18)"SYS"SDCHREC146) :PRINT 

280 PRINT"WARTEN AUF "CHR#C18)"READY"CHRFEC146)" 11" RETURN 

1808 DATAI63.43, 133, 168, 169,44, 133, 164, 168,8, 177, 163, 208, 6,208, 1 

1818 DATA163,208,1,96.168,3,200, 177,163, 288, 15,200. 152,24,181.163 

1828 DATA133, 163, 169,8, 101,164, 199, 164, 288, 222,201. 143,208, 232,206, 177 

1839 DATA163,240,232.201,32,240,247,169, 18,209, 163, 240,222, 178,165, 163 

1848 DATA133, 187, 165, 164, 133, 188, 177, 187, 72,138, 145, 187, 238, 197, 208,2 

1058 DATA230, 188, 104, 170, 208,248, 177, 187, 208, 236, 208, 177,187, 240,3, 136 

1960 DATA208, 228,200, 145, 187,208, 152,24, 101,187, 133,187, 169.8,1@1, 188 

1878 DATA133,46, 133,48, 133,50, 169, 187, 133,45, 133,47, 133,49, 160, 1 

1888 DATAL77,163,208,3.76,L®,H, 136, 177,163, 178,232, 138,145, 163, 141 

1098 DATA6A, 3,208, 138,288, 7, 177,163, 178,232. 138, 145,163, 177,169, 1393 

1186 DATA164,173,60,3, 133. 163,76,L128,H 





Bild 4.7.1 


Der REM-Invertierer ist ein Maschinen-Programm, das in den im Ka- 
pitel 5.2 beschriebenen Basic-Loader (s. Bild 4.7.1) eingebunden 
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wurde. Detailinformation bezgl. diesem kann dort in Erfahrung 
gebracht werden. Der Basic-Loader wird normal mit RUN gestartet. 
Sie werden gefragt, ab welcher Adresse (dezimal) das M-PGM gene- 
riert werden soll. Bei Eingabe von "E" wird es ans Basic-RAM-Ende 
gespeichert, wobei eventuell schon andere vorhandene M-PGMe in 
keinster Weise angetastet werden, 


Wenn Sie beispielsweise einen VC-20 in der Grundversion besitzen 
und sich fur das Ablegen des M-PGMs am Basic-RAM-Ende entschei- 
den, so erhalten Sie auf dem Bildschirm die Meldung: 


M-PGM-AUFRUF MIT: 
sys 7504 


Laden Sie mal eines Ihrer Programme, das recht großzugig mit REM- 
Zeilen gespickt ist und geben Sie SYS 7504 ein. Der Invertie- 
rungsprozeß dauert nur Sekundenbruchteile. Danach tippen Sie LIST 
und werden hernach das gewunschte Resultat betrachten konnen. 
Auch konnen Sie das neu geartete Programm normal drucken lassen 
oder abSAVEn, 


Wenn Sie die eine oder andere REM-Zeile wieder in den ursprungli- 
chen Zustand zuruckversetzen wollen, gehen Sie einfach mit dem 
Cursor an eine beliebige Stelle dieser Zeile, drücken RETURN und 
schon ist’s geschehen. Beim darauffolgenden LIST konnen Sie sich 
von der Rückgangigmachung uberzeugen. 


PROGRAMM-EINZELHEITEN 


1.) Name: REM-INVERTIERER 
2.) Ausbaustufe: beliebig 
3.) Art des PGMs: Basic-Loader 


4.) Anzahl der Bytes 
des Basic-Loaders: 1586 
des M-PGMs; 169 


5a) Benutzte Variablen im Basic-Loader: s. Kap. 5.2 
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20uE LIA #28 BASIC-Anfang-Wektor nach $#A3, #4 
zea2 5TA £A3 
zuB4 LIA KU 
2BE6 STA Ad 





zuaa LIT #08 . 
2aaA LOR CEA3, Wr 

zu8C BNE K2014 Sprung, wenn LOW-Lirkid>e 

ZUBE INT 

2REF LOA CEA35, 7 

zu11 BNE Falld Sprurg, wenn HIGH-Lırke > 

2213 RTS nn... am BASIC-Ende ansekommen__ 
2a14 [07 #03 Y initialisieren 

Zeis INT 

2817 LDA (£A35.'r 1. Zeichen in der naechsten BASIC-Zeile 
z2013 BNE #2EBER  _ _ _ _$Pruns. wenn noch nicht Zeilenende 
2E1B INT "Zeilenende erreicht, zeist auf LOW-Lirk 
ER TrA AI, FA4 = EA3. 84 + Y 

2u1D CLC 

zua1lE ADC #23 


eB2a STA £A3 
222 LDA ##04 
224 ADS #A4 


ZREG STR 4 

2025 BNE F2aA8 Sprung: Immer 

282A CHP War ee 

zu&C BNE 82Ul6 0 _ _ _SPruns, wenn nicht "REM" Oo LOL... 
ZuzE INY 


2eBEerF LDA (ER3> "7 
2931 BEN F2a1R 
za33 CHF #20 


2035 
Da37 
2039 
Za3B 
2030 
ZUSE 
244 
2042 
2044 


BEC 
LDA 
cMP 
BER 
TAX” 
LDA 
STA 
LDOA 
_STA 


K2BZE _ on Sprung, wenn " " 

#12 

KERI) Tr 

s201B . ‚$Prung, wenn "REM" bereite imvertiert 
Keks N" 

£A3 £BR- £Hl = £RA3, £rH4 

#RR 

£h4 

*BC 


2046 LDAR (BB), EASIC-Rest um 1 Stelle 


zu48 
2043 
za4A 
ZadL 
Za4E 
zase 
2052 
2953 
2054 


PHRA 
TMA 
STA 


ING 


BNE 
ING 
PLA 
TAX 


BNE $2046 


nach oben schieben 
KSBR).'r 
$BB 
32852 
“rc 


22045 Sprun®, wenn keine "A sefunden 


Bild 4.7.2 (Teil 1) 
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Sasn LOIR WERR>. 
ZUSS BNE FEO46 _. „Sprung. wern keine_2. "@" gefunden 
2asA In” .. 
a LOR <&BR>,' 

Std BERN 22062 _._$Prun®. wern 3. "Bd" Sefunden 
Sder Er DT = 
euel BNE Fend4e SFrung, wenn keine 3. "2" gefunden 
as INT ee 
2asa STH KFBRS,'Tr . _3._"@" ablesen = BASIC-Ende _ 
zusS IHr Verl 
a TTA ZEB,#BC = SEB,$Rl +7 
CLC 
ADC £BE 
STA ER 
> LER #EEM 
. ADG SER er a er en a 
STA $2E Vektoren‘ variablenanfana HIGH 
r2 STA 239 Feldanfana HIGH 
STAA #32 neu Feldende HIGH 
; LOAR £ER 
STA #ZU Justie- Variablenanfans LObl 
STA sr Feldanfana LO 
’& STA_$31 2... ken. _ _ Feldende __ _LOUM 
LI ae” 
LIA C£A3>,"T \ 
HNE #2907 Sprung. wenn nicht BASIC-Ende 
IMF s2BBU 
?° DEr 
IA CEARI).V naechsten Link um 1 versro@ssern 
TA 
IH“ 
' TEA 
STA CEABH, 
STA FA33C LÖW-Link zwischensfeichern _ R 
ED ı 2 Bee 2 
TAA 
BNE F2R30 
3E LER KL EAR: 
TAX 
IH 
TXA 
un SEnzert al a te re nt An rin 
[OR CERa), AI, $A4 = (EA3),0 „ CEAI),1 
STA 84 
LDA FA33C 
28h4 STA £A3_ En a en nn ee a en dm 
ZaA6 JMP F2a88 zur Fruefuns auf BASIC-Ende 











Bild 4.7.2 (Teil 2) 
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5b) Benutzte Adressen im M-PGM: 


SA3,A4 Zeilen-Anfangsadresse 
SBB ‚BC Zwischenspeicher fur SA3,A4 
6.) Listings 
des Basic-Loaders: Bild 4.7.1 
des M-PGMs: Bild 4.7.2 (Teil 1 u. Teil 2) 


7.) Erlauterıngen zum Basic-Loader werden in Kap. 5.2 gegeben und 
zum M-PGM implizit im gut kommentierten Listing (Bild 4.7.2). 


4.8 RENUMBER 


Bisher wurde schon eine ganze Reihe von RENUMBER-Programmen ver- 
offentlicht. Unseres Wissens nach konnten diese zwar ordentlich 
die Zeilennummern am Anfang der Zeile neu durchnumerieren, jedoch 
keines von denen auch die in den Zeilen vorkommenden Zeilennum- 
mern. Betroffen sind die Befehle GOTO, GOSUB, THEN, ON, LIST und 
RUN, hinter denen ja (nicht notwendigerweise bei THEN, LIST, RUN) 
Zeilennummern stehen, die im Programm vorkommen, 


VC-RENUMBER (s. Bild 4,81) rechnet schnell und zuverlassig auch 
die im Programm auftauchenden Zeilennummern um. Stoßt es zufallig 
einmal auf eine Zeilennummer, die als Programmzeile nicht vor- 
kommt (Nobody is perfect beim Programmieren), so wird an diese 
Stelle beim Umnumererierungsverfahren die Zeilennummer 63999 (al- 
so die hochstmogliche) gesetzt. 


Das Maschinenprogramm wird je nach Ihrem Wunsch in einem beliebi- 
gen Speicherbereich generiert. Wenn Sie es pauschal am RAM-Ende 
ablegen lassen, wird es gegen überschreiben geschutzt und sie 
konnen es beliebig oft aufrufen, wenn Sie ein im Arbeitsspeicher 
vorhandenes Basic-Programm umnumerieren lassen wollen, Weiterhin 
ist es koppelbar mit von Ihnen frei definierbaren Befehlen (s. 
Kap. 4.1), 


BEDIENUNGSHINWEISE 


VC-RENUMBER ist ein Maschinen-Programm, das in den im Kapitel 5.2 
beschriebenen Basic-Loader (s. Bild 4.8.1) eingebunden wurde. 
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290 


4,8 RENUMBER 


EM VC-RENUMBER 
EM RENDERUNG DER ZEILENNUMERTERUNG 
383 


PRINT 


RINTCHR$C147 3 "ABLEGEN DES M-PGM:" 

RINT:FRINT:FRINT"E = AM ENDE YOM BASIC-"SPCC4) "RAM-BEREICH" 

RINT:PRINT: PRINT" ZAHL? GEWUENSCHTE AN-"SPCK?)"ANFANGSADRESSE"SPCCBI"CDEZIMA 
om" 

RINTSPC( 73 "PROGRAMM" PRINT: PRINT 

NPUTA$ : SD=VALCAS> : IFSDTHEN16B 

FAg<>"E"THEN4O 

EM=FEEK SS? +236#PEEK (56) : AD=EM-L :ER=PEEK (6437) +256WPEEK (644) 

IFEM=ERTHEN1 30 

IFPEEKCER-3> <> 1970ORPEEKGER-2I CH2O5ORPEEK (ER-1Y?<CPLI6THEN1SO 

FOKEEM-3. 137: FÜKEEM-2, 286: POKEEM-1 , 196: Al=AD-7 : G0SLUJB2SO 
POKEEM-5. AL: POKEEM-4. AH% 

GOSLIB2SR: POKESS, AL : POKESS, AHA 'AL=FRE(9> :SD=AD 

GOSUBZ26A 

FORI=SDTÜSD+L-1: RERDAS 

IFALC"H" THENA=WAL CAS) CH=CH+A :GOTO218 

IFA$>"H" THENAD=VAL CRIBHTECAS, LENCASD-19) : CH=CH+AD : AD=AD+SD  BOSLB2IR : A=Al :GOT 


A=fHr 

PÜKEI.A: IFPEEK“ID=ATHENNEXT : GOTO238 

FRINT'PRINT:PRINT"ROM-BEREICH !":PRINT"ANDERE WAHL" :PRINT"FUER ANFANGSADRESS 
TOP 

IFCHSIFSZRATHENPRINT :PRINT"PROBRAMM IST FEHLER- HAFT EINGEGEBEN !!1":STOF 
NEW u 

AHR=AD/23IE : AL=AD-ZICHRAHR RETURN 

FRINTCHRE«C 147 53" M-PGM-ALFRUF MIT: "PRINT 

FRINTCHREG 183 "SYS" SDCHREC1S7I". CZND, KDFI"CHRSK 146) : PRINT 

PRINT"ZN=NUMMER DER 1.ZEILE DF=ZEILENNR.-ABSTAND" 

FRINT: PRINT". <CDFD BZW. »“ZND,CDF> KOENNEN ENTFALLEN" PRINT 

FRINT PRINT "WARTEN AUF_"CHR&S 18} "READY "CHR$L1467" | 1" RETURN 


1aad DATA32,L457,H,32.L480,H, 165,43, 133, 95, 165,44, 139, 36, 32.1558 


1012 
1020 
1030 
1046 
1038 
10658 
10702 
1008 
1094 
11a2 
1118 
1120 
1138 
1148 
1158 
1168 
1170 
1100 
1190 
1208 
1218 
1228 
1230 
1248 
1250 
1268 
1270 
1288 
1239 
1308 


DATAH, 240.8,32,1.933,H. 144,246, 76,1L491,H,32,1L574,H,32,1L959 
DATAH. 208,43, 169, 167,133, 164,169, 168, 139, 169, 169, 43, 193: 99, 165 
DATA44 133,396. 160, 3,169, 169. 145,95, 136, 165, 164, 145, 99, 32,1.939 
DATAH, 32.1.5999. H, 208, 237,169. 259,133, 58,76, 116,196, 96, 168,4 
DATA132, 19,177, 99, 244.200, 201, 34, 288,8, 165, 19, 793, 239,133, 15 
DATR2O8, 18,36. 19,48.14,201, 143,240. 100, 162,6,221,L362.H, 248 
DATAß, 202, 208. 248, 200, 208,219. 24, 192.101,99,1939, 122,133, 99,166 
DATA36,144,1,232.134,123,1934,91:32,119,8,144,.10.201,171,248 
DATRS7, 201, 164.208, 223, 240,81, 32,197,201,32,L226,H, 169,90, 166 
DATA31,139, 122,134, 123, 162,0,160.,0,189,1:1,240, 15, 72,32 
DATA115,9,144,3,2382,L300.,H.184,14%, 122.232. 208, 236,32, 115,0 
DATA32, 121,8, 176,9,32,L499.H, 248, 246.170,56, 169: 122,229,95 
DATA168, 138, 201.,44,2490,161.281,171,248, 157,201, 164, 240,193, 178,76 
DATALB4,H, 165, 167 166. 168, 199, 164 , 194, 169, 165,493, 166: 44: 139,36 
DATA134,37,1680,3.177,26,197,21. 208, 24,136, 177,36, 197,20, 208 
DATA17,169.165, 166. 164. 133,98, 1324,99, 162, 144,56, 32, 73, 220,76 
DATA221,221,32:.1L539,H: 160, 1.177,36. 208.6, 169,249, 162,255. 208 
LATAZ28, 179, 136, 177,36, 194.37,133. 36, 76,L242,H, 134, 169.166, 49 
DATA154.46, 134,08, 122,09, 232,208.1,200,228,59,192,229,36, 144 
DATA3, 76.53, 196. 132,46,194,49,160,1,162,8,161,80,145,08 
DATA169, 08. 208,2.198,89, 198,88, 165,88, 197,122, 165,89, 229,123 
DATA176,234,8.165,99,166,96, 133, 90,134, 91.48,168,1,177,90 
DATAZOB, 4,166. 169, 136, 96, 178,136, 177,90,. 168,176. 6: 200,288, 7 
DATA2IZ, 208,4, 208,1,202,136, 132, 160,0, 145,90, 72,139, 200, 145 
DATA9®, 133,91, 104,139, 98, 76,1L366,H. 169, 49, 208, 2, 198, 46,198 
DATA48, 169,122. 166, 123. 139,88, 134,89, 168.1, 162.8.177,08,129 
DATA8B, 230. 89, 208,2, 230.89, 165,88, 197,45,165,89, 229, 46,144 
DATA236 176. 199. 32,1L457 ,H. 76, 72,210, 169,18,141.226:3,169,0 
DATA141.227,3,133, 168, 133,163, 133, 169, 169, 180, 133, 167, 133, 164, 96 
DATA32,121,0,2408,53,32.119.8,176. 23, 32, 107,201.72,169,21 


Bild 4.8.1 (Teil 1) 
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1318 DATA166,20,133. 168, 134, 167,133: 165. 134. 164, 194, 249.29.201.44,248 
1328 DATA3, 76.9,207,32,119:8,176.248. 32: 107.201. 72:165. 21.166 

1330 DATA2@,141,227,3.142,.226.3, 104.208. 231,96,24,165. 164, 199,226 
13480 DATA3, 133,164. 165,165, 109,227:3,133. 165,176: 2,2801,250,96.158 
1359 DATRB,177.95:178,208,177,99.134.35,133.96.:177,95,96,169.43 

1365& DATA133,95.162,9, 134.96, 96,159, 138: 167,137. 141,203 


Bild 4.8.1 (Teil 2) 


Detailinformation bezgl. diesem kann dort in Erfahrung gebracht. 
werden. Der Basic-Loader wird normal mit RUN gestartet, Sie wer- 
den gefragt, ab welcher Adresse (dezimal) das M-PGM generiert 
werden soll. Bei Eingabe von "E" wird es ans Basic-RAM-Ende ge- 
speichert, wobei eventuell schon andere vorhandene M-PGMe in 
keinster Weise angetastet werden. 


Nachdem Sie sich fur eine Anfangsadresse oder fur "E" entschieden 
und nach entsprechender Eingabe RETURN gedrückt haben, wird auf 
dem Bildschirm der SYS-Befehl angezeigt, der die RENUMBER-Funk- 
tion ausfuhrt. 


Wenn Sie beispielsweise eine 8-KByte-Speichererweiterung besitzen 
und sich fur das Abspeichern von VC-RENUMBER am RAM-Ende ent- 
schieden haben, so wurde ausgegeben werden: 


SYS 15788,(ZN),(DF) (Return) 


Die Angaben ",(DF)" oder von ",(ZN),(DF)" sind optional, (ZN) 
steht fur die gewunschte Anfangszeilennummer, (DF) fur die Diffe- 
renz der Zeilennummern. Die Eingabe: 


SYS 15788,1000,20 (Return) 


wurde demnach bewirken, daß das im Arbeitsspeicher vorhandene Ba- 
sic-Programm ab Zeilennummer 1000 im Abstand 20 neu durchnume- 
riert wurde. 


VC-RENUMBER kann nur ein gesamtes Programm neu durchnumerieren. 
Fur den Programmierer kann das eventuell dann ein Nachteil sein, 
wenn er beabsichtigt, mittels Gebrauch bestimmter Zeilennummern- 
bereiche Programmteile untereinander abzugrenzen. Z.B. soll also 
Unterprogramm 1 im Zeilennummernbereich 2000-2999 sein, Unterpro- 
gramm 2 im Bereich 3000-3999, etc. Wenn einmal Änderungen an ei- 
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nem solchen Programm vorgenommen werden und RENUMBER auf das ge- 
anderte Programm angewandt wird, so durfte die ehemalige Zuord- 


nung zu Zeilennummernbereiche wohl hin sein. 


Abhilfe schafft in diesem Fall das im Kapitel 4.2 besprochene 
Programm VC-KEEP, mit dessen Hilfe sich beliebige Programmteile 
im vorhandenen RAM zwischenspeichern und auf Bedarf wieder zu- 
ruckholen lassen. RENUMBER wird dann eben nur auf Programmteile 
angewandt, die sich uber die Funktion FETCH (s. Kap 4.2) nach Be- 
lieben mit anderen Programmteilen verknupfen lassen, 


PROGRAMM-EINZELHEITEN 
1.) Name: VC-RENUMBER 


2.) Ausbaustufe: beliebig, allerdings mit der Einschräan- 
kung, daß fur einen VC-20 in GV der 
Basic-Loader ein wenig kurzer gemacht 
werden muß, 
In diesem Fall sind folgende Zeilen weg- 
zulassen: 10, 20, 40, 50, 60, 70, 110, 
120, 220, 275, 276 und 280. In Zeile 270 
muß die Anweisung RETURN stehen, 
Die RENUMBER-Funktion wird aufgerufen 
per: SYS 7084,(ZN),(DF) (Return) 


3.) Art des PGMs: Basic-Loader 
4,) Anzahl der Bytes 
des Basic-Loaders: 3319 (2775 in der GV-Fassung ) 
des M-PGMs: 589 
5a) Benutzte Variablen im Basic-Loader: s. Kap. 5.2 
5b) Benutzte Adressen im M-PGM: 
24-25, $58-5B, S5F-60, $62-63, $A3-A9, SOIE2-OIEI 
6.) Listing des Basic-Loaders: Bild 4.8.1 
7.) Erläuterungen zum Basic-Loader werden in Kap. 5.2 gegeben. 


139 


4.9 GOTO/GOSUB Variable 


4.9 GOTO UND GOSUB IN VERBINDUNG MIT VARIABLEN 


Haben Sie sich als Basic-Programmierer nicht auch schon einmal 
einen Sprungbefehl gewunscht, bei dem es nicht notig ist, eine 
absolute Zeilennummer anzugeben, sondern der ebenso mit einer Va- 
riablen oder sogar mit einem belieben Term seine Dienst tut ? 


Hier ist er: wir haben ihn JUMP genannt, Hinter JUMP konnen Sie 
eine Variable, Feldvariable oder einen numerischen Term setzen 
oder auch ganz auf eine Angabe verzichten. Im einen Fall wird das 
Programm den Wert der Variablen abrufen bzw. den Term berechnen 
und zu derjenigen Zeile springen, deren Zeilennummer diesem Wert 
entspricht. Im anderen Fall, bei Verzicht einer Angabe, springt. 
das Programm zum Anfang und setzt seine Arbeit in der 1. Zeile 
fort, ohne allerdings dabei irgendeine Variable zu loschen, Wenn 
man namlich den Befehl RUN irgendwo ins PGM einbaut, dann kehrt 
zwar das PGM auch zum Arıfang zuruck, CLEARt aber sämtliche Varia- 
blen. 


Mit dem hier vorgefuhrten Programm JUMP/VARSUB ist es auch mog- 
lich, Unterprogrammaufrufe per Variable bzw. Term vorzunehmen. 
Das luxuriosere GOSUB haben wir hier als VARSUB bezeichnet, 


JUMP/VARSUB ist ein Maschinenprogramm, welches je nach Wunsch in 
eınem beliebigen Speicherbereich generiert wird, Wenn Sie es pau- 
schal am RAM-Ende ablegen lassen, wird es gegen überschreiben ge 
schutzt und sie konnen es immer dann aufrufen, wenn Sie es beno 
tigen, Weiterhin mussen die Funktionen JUMP und VARSUB mit. von 
Ihnen frei definierbaren Befehlen (Sie konnen naturlich diese 
beiden Bezeichnungen ubernehmen) per Programm VC-COMMAND (s, Kap. 
4.1) mit den vorgegebenen SYS-Adressen (s, Bedienungshinweise im 
Anschluß) gekoppelt werden. 


BEDIENUNGSHINWEISE 


JUMP/VARSUB ist ein Maschinen-Programm (s, Bild 4,9,3), das in 
den im Kapitel 5.2 beschriebenen Basic-Loader (s. Bild 4.9.1) 
eingebunden wurde, Detailinformation bezgl. diesem kann dort in 
Erfahrung gebracht werden, Der Basic-Loader wird normal mit RUN 
gestartet, Sie werden gefragt, ab welcher Adresse (dezimal) das 
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M-PGM generiert werden soll. Bei Eingabe von "E" wird es ans Ba- 
sic-RAM-Ende gespeichert, wobei eventuell schon andere vorhandene 
M-PGMe in keinster Weise angetastet werden. 


12 REM JUMF/YARSURB 

zu REM VARIABLES GOTOYGOSUB “NUR IN VERBINDUNG MIT PGM VC-COMMAND> 

25 REM SYNTAX: "JUMP"=GEHE ZU FGM-ANFANG 

25 REM "JUMFENUM. TERM)" 

27 REM "VARSUBENLUM. TERMI" 

34 L=46 

4a PRINTCHREC147 > "ABLEGEN DES M-POM:" 

sa FRINT:PRINT'PRINT"E = All ENDE VOM BASIC-"SPCi4)"RAM-BEREICH" 

sa PRINT:PRINT: PRINT" CZAHL> GEWUENSCHTE AN-"SPCi73"ANFANGSADRESSE"SPC(B>" CDEZIMA 
L> vom" 

"a PRINTSPT« 73" PROBRAMM" :PRINT:PRINT 

88 INFUTAF:SD=YAL CAS): IFSDTHEN16O 

98 IFRS<C>"E"THEN4O = 

12m EM-PEEK(STI+ZSSHPEEK (56) : AU=EM-L  ER=PEEK (643) +256WPEEK (644) 

136 PÜKEEM-3. 197: POK.EEM-2, 286 : PÜKEEM-1. 196: AD=AD-7 :GOSLIB250 

142 PÜKEEM-S. AL PGrEEM-4. AHA 

I50 25 PLKESS AL POKESE . AHX  AL=FRE( 9): SD=AN 

I6M GOSUBZEH 

172 FÜRT=5DTOSD+L-1 READAS 

188 IFREC"H"THENA=WAL CAS) GCTOZ18 

19a IFA$>"H" THENAD=VALGRIGHTSCAF, LENCAFI-1) 2  AD=ADL+SD : GOSUB2S0  A=AL GCTOZ1IO 
2ad R=fHr 

zia POKEI,A IFPEER“ I I=ATHENNEXT GOTIZ4E 

aa FRIHT PRINT:FRINT"RÜM-BEREICH !":PRINT"ANDERE WAHL" :FRINT"FUER ANFANGSADRESS 
Er STOP 

2440 NEW 

ZA AHR=AD/2SE  AL=AL-ZSCHÄHR RETURN 

268 FRINTCHRE« 1479" M-PÜM-AUFRUF MIT:": PRINT 

a PRINTCHREC18I "SS" SDCHREC1463 PRINT" =ILUMP BZW." PRINT"=JLMFCBEL.TERM> 
279 PRINT PRINTUHRS$«10)"SY75"SD+BCHRE“ 1465: PRINT"=VARSIUB<BEL. TERM) 

28 FRINT FRINT PRINT"WARTEN AUF "CHRE&CLA> "READY" CHRE“ 1463" 11"  RETIFRN 
ıaaa DATAFE:121,9,208,32:76,142.198.169.3,32,251,199, 169, 123,72 

1016 DATALES. 182, 72.169,58. 72.169:.97:72:169,141,72.32,121:0,32 

at DATALST 4.76, 174,198: 38,138, 209, 32.247 ,219,76, 163, 200 





Bild. 4.9.1 


Als Beispiel wahlen wir den Fall, daß Sie einen VC-20 ohne jegli- 
che Speichererweiterung haben, also einer VC-20 in Grundversion 
(GV), Per Eingabe von "E" entscheiden Sie sich dafur, daß das 
M-PGM JUMP/VARSUB am Ende des Basic-RAM generiert wird. Sie er- 
halten sodann die Anzeige von zwei SYS-Adressen, Speziell in die- 
sem Beispiel sind dies die Befehle: 


SYS 7627 fur die Funktion JUMP 
SYS 7635 ” Br " VARSUB 
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Eine Kopplung mit beliebigen Befehlsworten ist nicht notwendig, 
wenn Sie JUMP nur in der Funktion benotigen, ohne irgendeine An- 
gabe zum Programmanfang zu springen, In diesem Fall konnen Sie 
jetzt beginnen, ein beliebiges Basic-PGM zu kreieren, Immer dort, 
wo Sie den Sprung zum Programmanfang wunschen, welche Zeilennum- 
mer die 1. Zeile auch immer haben mag - daß man diese nicht wis- 
sen muß, ist ja gerade der Witz hierbei -, setzen Sie den Befehl 
SYS 7627 ein. Bei diesem Sprung werden, wie schon am Anfang er- 
wahnt, die Variablenwerte nicht geloscht. 


Falls Sie aber doch Variablen oder numerische Terme als Sprung- 
ziele verwenden wollen, so wurden Sie per Programm VC-COMMAND aus 
Kapitel 4.1 die Befehle JUMP und VARSUB (andere Namen sind natur- 
lich im Rahmen der in Kap, 4.1 besprochenen Einschränkungen auch 
moglich) mit den Einsprungadressen 7627 und 7635 koppeln mussen, 
Wenn dies geschehen ist, funktioniert z.B. das Programm in Bild 
4,92; 


20 A=A+1 

30 JUMP A*100 
100 PRINT1:JUMP 
200 PRINT2:JUMP 
300 PRINT3: JUMP 
400 PRINTA4:JUMP 
500 PRINT5: JUMP 
600 PRINT6 : JUMP 
700 PRINT? : JUMP 
800 PRINT8: JUMP 
900 PRINT9: JUMP 
1000 PRINT10 


Bild 4.9.2 


Dies tut zwar nichts besonders Gescheites, demonstriert jedoch im 
Kurzen, wie JUMP eingesetzt werden kann, Nach RUN wird dieses PGM 
untereindander die Zahlen 1 bis 10 anzeigen, 


Eine kleine Einschränkung der beiden neuen Befehle: wenn sie in 
einer IF-THEN-Anweisung zum Einsatz kommen sollen, so ist ein 
Doppelpunkt zwischen THEN und dem neuen Befehl notwendig, also 
2.B,.s 

30 IF B=0 THEN: JUMP A*100 
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2808 JSR #8079 
2083 BNE $2025 
20885 JMP_$C6BE 
2088 LDA #883 
208A JSR SCIFB 
2080 LDA 8#7B 
2080F PHA 

2018 LDA $7A 
2012 PHR 

2813 LDA $3A 
2015 PHA 

2016 LDA #39 
2818 PHA 

2819 LDA #$8D 
281B PHR 

201C JSR #0079 
281F JSR 82025 
2922 JMP_$C7RE 


4.39 GOTO/GOSUB Variable 


Hole momentanes Zeichen 

Sprun®, wenn numerischer Term vorhanden 
run® zum Anfan es Fro9ramms 
nsfruns fuer 

Ist im Stack Platz? 


BASIC-Ruecksprun® Sarantieren 


Hole momentanes Zeichen 
BASIC-Zeilenadresse holen 
Zum nachsten Befehl 


2025 JSR $CDBRA Numerischen Term auswerten 


2028 JSR $D7F7? 
202B JMP $C8R3 


PROGRAMM-EINZELHEITEN 
1.) Name: 

2.) Ausbaustufe: 

3.) Art des PGMs: 

4.) Anzahl der Bytes 


des Basic-Loaders: 
des M-PGMs: 


in Inteserzahl umwandeln u. nach #14,#15 
BASIC-Zeilenadresse berechnen 


Bild 4.9.3 


JUMP/VARSUB 
beliebig 


Basic-Loader 


1167 
46 


5.) Benutzte Variablen: s. Kap. 5.2 


6.) Listings 
des Basic-Loaders: 
des M-PGMs: 


Bild 4.9.1 
Bild 4.9.3 


7.) Erläuterungen zum Basic-Loader werden in Kap. 5.2 gegeben und 
zum M-PGM implizit im gut kommentierten Listing (Bild 4,9.3). 
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4.10 AUTONUMBER PER BASIC 


AUTONUMBER sollte eigentlich Bestandteil des Betriebssystem sein, 
ist es aber beim VC-20 nicht. Halb so schlimm, darauf verzichten 
braucht man gar nicht, wenn man sich eines kleinen Hilfs-Pro- 
gramms bedient, was noch nicht einmal ein M-PGM sein muß, weil 
beim automatischen Numerieren von Zeilen keine Geschwindigkeits- 
anforderungen gestellt werden. 


Das Programm AUTONUMBER (s. Bild 4.10.1) hat zwei Eigenschaften: 


- Es können die Anfangszeilennummer und der Zeilennummernabst.and 
eingegeben werden, auch zwischendurch geandert werden. Wenn 
keine Eingaben gemacht werden, werden die Nummern ab 10 im Ab- 
stand 10 hochgezahlt. 


- Wird die Programmeingabe irgendwann unterbrochen, so merkt sich 
das Programm die zuletzt eingegebene Zeilennummer und fahrt mit 
der richtigen Nummer nach erneutem Aufruf fort. 


In Verbindung mit dem Programm VC-KEEP (s. Kap. 4.2) konnen Sie 
AUTONUMBER ans RAM-Ende "wegpacken" und nach Belieben in den Ar- 
beitsspeicher holen (FETCH-Funktion), wenn Sie es brauchen, 


BEDIENUNGSHINWEISE 


AUTONUMBER ist in Basic geschrieben und nimmt den Zeilennummern- 
bereich von 62000-62011 ein. Das heißt, es ist darauf zu achten, 
daß man bei seiner Programmeingabe nicht aus Versehen auf eine 
dieser Nummern stoßt. Falls Sie beabsichtigen die Zeilennummern 
von AUTONUMBER durch RENUMBER zu ändern, so gelingt dies nur 
teilweise: das PRINT"RUN62008" wird durch RENUMBER nicht veran- 
dert, muß man also "von Hand” umändern, 


Bevor ein Programm eingetippt werden soll, bei dem man sich fur 
den Einsatz von AUTONUMBER entschlossen hat, muß letzteres erst 
in den Arkeitsspeicher geladen werden. Aufgerufen wird es ganz 
normal per RUN. 
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Sie werden daraufhin nach der Anfangszeilennummer gefragt. Beim 
RETURN-Drucken ohne Zahleneingabe wird die Nummer 10 unterstellt. 
Falls Sie es gewohnt sind, mit einer anderen Zeilennummer zu be- 
ginnen und sich ebenfalls die anfängliche Eingabe sparen wollen, 
so wechseln Sie in Zeile 62000 einfach das ZN=10 entsprechend 
aus, 


ne HR CHPWT"ZEILERHUMMIER "ch 
seadı Drei: ImPli "RBSTAHZ Dr FÜREESES > L- 
Bedle HizcHr/ani: FÜRLEDT ae  FÜOREEDE, HA FRIH TIMES SINE SH 2 
Ed GETEF:FÜRLEIH GO IFete "TrEmmaklas 
e IFHSCH EIS HENFRANTIENL 
FRIMTEF.: AFERSSCHRE 133 THENSERUS 
FEIN "Rumgsadde" FÜR LEST Ma RT Se EEE ZT 
FÜkeI: LS FOKEI+L. LM FÜKEL FE GND 
Y FRINI CHR HEHE 45 FR I=1T03 
AI FRLMT' "NeaT FRANTLHREL HT HR LH ScHRt 40 
I Merken lud) 
Gel Zmiefeeki di dtradhrrEck az +lr GUTORZEME 


Bild 4.10.1 








En 










Danach ist die Eingabe des Zeilennummernabstands vorgesehen. Es 
werden hierbei nur Werte zwischen 1 bis 255 erwartet. Beim RE- 


TURN-Drucken ohne Zahleneingabe wird der Abstand 10 unterstellt, 
Falls Sie an einem anderen Abstand gewohnt sind und sich eben- 


falls eine Eingabe sparen wollen, so wechseln Sie in Zeile 62001 
einfach das DF=10 entsprechend aus, 


Sie sehen dann die gewunschte Zeilennummer am Anfang der Zeile 
und Sie konnen mit der Programmeingabe beginnen. Sobald Sie eine 
eingegebene Zeile per RETURN bestätigen, sehen Sie sofort die 
folgende Zeilennummer in der nächsten Zeile. Daß vielleicht ab 
und zu ein eingegebenes Zeichen in der Revers-Darstellung ver- 
bleibt, ist schlimmstenfalls rein optisch von Nachteil, im Pro- 
grammspeicher selbst wird es ordnungsgemaß abgespeichert, wovon 
Sie sich später durch LIST überzeugen konnen, 


Wenn Sie eine Unterbrechung bei der Eingabe des Programms wün- 
schen, dann drücken Sie nicht ein weiteres RETURN, sondern die 
Funktionstaste Fi. Wollen Sie irgenwann das Programm weiterein- 
tippen, so steigen Sie wieder ein mit: 


RUN 62011 (Return) 
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Die in der Reihenfolge richtige nächste Zeilennummer wird dann am 
Anfang der Zeile zu sehen sein. Es könnte natürlich auch sein, 
daß Sie mit anderen Werten - Zeilennummer und Abstand - fortfah- 
ren möchten. In diesem Fall verwenden Sie: 


RUN 62000 (Return) 
Wenn Sie schließlich mit der Programmeingabe ganz fertig sind, so 


loschen Sie nach der Programmbeendigung uber Fi die AUTONUMBER- 
Zeilen 62000-62011. 


PROGRAMM-EINZELHEITEN 


1.) Name: AUTONUMBER 
2,) Ausbaustufe: beliebig 
3.) Art des PGMs: Betriebssystem-Zusatzroutine 


4.) Anzahl der Bytes: 363 


5.) Benutzte Variablen: 
ZN Zei lennummer 
DF Nummerndifferenz 
H% ‚ Hilfsvariable 
ES Eingegebenes Zeichen 
I Schleifenzahler 


Benutzte Adressen: 
#251 ,252 Zwischenspeicher fur Zeilennummer (L,H) 
#253 a x Nummerndifferenz 


6.) Listing des PGMs: Bild 4.10.1 


7.) Erlauterungen zum PGM: 
Das Programm ist an sich leicht zu durchschauen. Hervorzuhe- 
ben sind allerdings die Zeilen 62007 und 62008, worin über 
das HineinPOKEn in den Tastaturpuffer das automatische sich 
Aufbauen des Programms ermoglicht wird. 
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4.11 DUMP PER BASIC 


DUMP sollte wie AUTONUMBER zu einem Basic-Betriebssystem dazuge- 
hören. Auch hier hat der Hersteller des VC-20 Kosten eingespart - 
andererseits kann man sich ja wirklich nicht uber den VC-20-Preis 
beschweren. Aber auch in diesem Fall ist es relativ einfach, den 
VC-20-Funktionsvorrat um die Funktion DUMP zu erweitern, 


Das Programm DUMP (s. Bild 4.11.1) ist ein kleines Basic-Hilfs- 
programm, welches als Anhängsel zu jedem Basic-Programm hinzuge- 
fügt werden kann, vorausgesetzt, die Zeilennummern des Programms 
überschneiden sich nicht mit denen des Hilfsprogramms. Die Zei- 
lennummern konnen jedoch ohne Bedenken per RENUMBER-Funktion 
(s. Kap. 4.8) umgeändert werden. Bevor Sie ein neues Programm 
eintippen, laden Sie zuerst DUMP (zusammen mit AUTONUMBER ist es 
auch verträglich), Mithilfe VC-KEEP (s. Kap. 4.2) allerdings kon- 
nen Sie jedes beliebige Basic-Programm Ihrer Programmbibliothek 
um DUMP erweitern. 


Wenn Sie DUMP wahrend eines Programmlaufs oder danach aufrufen, 
werden Ihnen samtliche Variablen mit ihren augenblicklichen Wer- 
ten und alle Funktionensnamen aufgezeigt, die wahrrend des Pro- 
grammlaufs benutzt worden sind. 


BEDIENUNGSHINWEISE 


DUMP muß, wie schon oben beschrieben, als Anhängsel in demjenigen 
Programm vorhanden sein, dessen korrekte Abarbeitung Sie mithilfe 
der DUMP-Funktion uberprufen wollen, Ist einmal ein Programmlauf 
aufgrund eines Fehlerfalls, Abstoppen per Drucken der STOP-Taste 
oder per STOP bzw. END-Befehl beendet, dann rufen Sie die Anzeige 
sämtlicher Variablen einfach auf durch: 


GOSUB 63000 (Return) 
Falls eine Weiterbearbeitung des Programms von einer anderen 
Stelle (also nicht von Anfang an) beabsichtigt ist, dann darf 


dies nicht per GOTO-Befehl, sondern muß geschehen per: 


RUN (gewunschte Zeilennummer ) (Return) 
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4S3+ESö#FEER (459-7: FA=PEEKi47 HEBEN 
di: HiIF=" 


Sage VrLich 
s3ddl Hi=a:H 
elle FRANT: Fe ern HENRE N RN 

53a MI=FEER WW Heer EEnkWW+l) 

Set OHNLSGNHENI-IETPREHSGNE NE 12 rd EHOTIE RT 3 N een 
5 USUBS3RLE:FRINT"=", Zei 50 )Bs3011:FRINMTHL :GOTLÜBSBUDE 

Se BOSUBSEELE: PRINT" Set CHREi 4 glei lslleiiel LI FRINTHLECHREN 4 
Be TIER 

Ess FRINI"FH "4: GUSUES5FR LE BOT DER 

Bali BOHLBSERLA:PRINT"A=e"3 : Z2e6: GO BeE3R Li FRIMTRIS GO TOSSARE 
sale FRINTCHREFIHLANDIET FG CARE. HNEAHLIZT OS RETURN 

Ei FirRNeiTDß: POKEFA-ZZ#7 +  FEERS WHO NEAT RE Rn 










Bild 4.11.1 


Wie Sie dem Beispiel entnehmen konnen. ist der Aufruf GOSUB 63000 
auch im Programm moglich. 


Zur besseren Erlauterung gehen wir von einem Beispiel aus. Laden 
Sie das Programm DUMP und fügen Sie die Programmzeilen aus Bild 
4.11.2 hinzu. Dann starten Sie es mit RUN und erhalten als Resul- 
tat die Variablenliste gemaß Bild 4.1.3. Falls Sie dies mit ei- 
nem VC-20 in GV oder 3K-V ausprobieren, sind die Werte in den Va- 
riablen ab VV andere. Diese sind ohnehin nur Hilfsvariablen, die 
zum Unterprogramm DUMP gehoren. 


A= 6 

BB%= 30 

FN CC 

xX= 0 
10 A=6 DAS="TEST" 
20 BB%=5 VV= 5138 
30 DEF FN CCCX)=X#A FA= 5201 
40 DA$="TEST" H1= 5201 
50 BB%=FNCC (BB%) H1%= 30 
60 GOSUB 63000:END H1$="TEST" 

N1= 78 

N2= 50 

ZZ= 7 

LV= 3 

Bild 4.11.2 Bild 4.11.3 


Wenn Sie die Ausgabe der Variablen ab VV bis LV vermeiden wollen, 
dann mussen Sie nur im Unterprogramm DUMP in Zeile 63002 das 
"0*%63" durch "1%63" ersetzen. 
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WIE WERDEN VARIABLEN GESPEICHERT ? 


Diese Frage stellt sich zwangslaufig, will man die Funktionsweise 
des kleinen Programms DUMP verstehen. Das COMMODORE-Basic unter- 
scheidet 4 verschiedene Variablentypen. Nach Abspeicherung er- 
kennt das Betriebssytem den jeweiligen Typ an dem gesetzten bzw. 
nicht gesetzten Bıts 7 der beiden Namenszeichen (NZ). Bei zwei 
Namenszeichen mit je zwei Moglichkeiten ergibt dies folglich ins- 
gesamt 4 unterscheidbare Fälle. Variablennamen werden also grund- 
satzlich 2 Bytes Speicherplatz zugeorndet; wenn Sie einer Varia- 
blen nur einen Buchstaben spendieren (z.B.: A=5), so ergänzt das 
Betriebssystem von selbst diesen Namen zu zwei Zeichen, wobei 
letzteres Byte den Wert O erhalt, bzw. 128 bei gesetztem Bit 7. 


Bit. 7 von NZ1 Bit. 7 von NZ2 Variablentyp 
U 1 String ($) 
l 0 Funktion (FN) 
1 1 Integer (%) 
Bild 4.11.4 


Bei welchem Varıablentyp welches Bit 7 gesetzt ist, veranschau- 
lıcht Bild 4,11.4 (NZ=Namenszeichen). 


Neben derı 2 Bytes fur den Variablerınamen und -typ werden den Va- 
rıablen vom Typ Gleitkomma, String und Integer noch weitere 5 By- 
tes zugewiesen, die deren Inhalt speichern sollen. Die Bilder 
4.11.5a,5b,5c geben Auskunft daruber, wie das geschieht. Wahrend- 
dessen die genannten Variablentypen insgesamt 7 Bytes an Spei- 
cherplatz verbrauchen, benotigt die Funktionsvariable 14 Bytes. 


Adr. (L) und Adr. (H) bedeuten die LOW- und HIGH-Teile derjenigen 
Anfangsadresse, ab der der String mit der in Byte 3 angegebenen 
Lange abgespeichert ist. Die zwei letzten Bytes haben keine Funk- 
tion und sind generell auf 0 gesetzt. Wir konnen also hieraus er- 
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kennen, daß ein String (vom Namen abgesehen) 3 Bytes zu Verwal- 
tungszwecken braucht. Bei der Abspeicherung von String-Feldern 
wird diese Tatsache vom Betriebssystem optimal berücksichtigt, 
indem jedes einzelne Feldelement mit einem Speicherbedarf von J 
Bytes auskommt, die String-Inhalte nicht einbezogen. Bei den Fel- 
dern steht am Anfang noch der Name und die Dimension, 


Byte ! 1 ! 2 ! 3 ! 4 ! 5 t 6 ! 2 ! 
a a a u ne ge a a a a a ee nee Gen wine 1} 
It Nz21 ! NZ2 ! Zahl in Binarform ! 


Bild 4.11.5a: Gleitkomma-Variablentyp 


I! nzi ! NZ2 ! Länge ! Adr. (L) ! Adr. (H) !0!0% 


Bild 4.11.5b: String-Variablentyp 


! nz1 ! NZ2 |! HIGH-Teil ! LOW-Teil tDEOLV! 


Bild 4.11.5c: Integer-Variablentyp 


Die HIGH- und LOW-Teile beziehen sich auf den Wert der Integer- 
Variablen, wobei hierbei darauf zu achten ist, daß Integer-Vari- 
ablen Werte von -32768 bis +32767 annehmen konnen. Das heißt, 
zwischen dem Variablenwert und den HIGH/LOW-Teilen laßt sich die 
folgende Beziehung herstellen: 


Variablenwert = LOW + 256*(HIGH - 2*CHIGH AND 128)) 
Die drei letzten Bytes haben keine Funktion und sind generell auf 


0 gesetzt. Ähnlich wie bei der String-Variablen konnen wir auch 
hier erkennen, daß eine Integer-Variable (vom Namen abgesehen) 
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nur 2 Bytes zur Speicherung ihres Wertes braucht. Bei der Abspei- 
cherung von Integer-Feldern wird dieser Tatsache optimal Rechnung 
getragen, indem jedes einzelne Feldelement tatsachlich nur 2 By- 
tes einnimmt (auch hier stehen am Anfang der Name und die Dimen- 
sion), Weil dagegen ein Gleitkomma-Feldelement 5 Bytes zur Wert- 
speicherung benotigt, wird dem Programmierer immer wieder gera- 
ten, nach Moglichkeit Integer-Felder anstatt Gleitkomma-Felder zu 
benutzen; das geht naturlich nicht immer. 


I! NZF1 I! NZF2 ! ADCL) ! ADCH) ! AACL) ! AACH) ! ASCD1 |! 


I NZAl I! NZA2 I! Wert des Funktions-Arguments ! 
Bild 4.11.5d: Funktions-Variablentyp 
Wie oben bereits erwahnt, nimmt eine Funktions-Variable 14 Bytes 


ein. Wofür die einzelnen Bytes dienen, zeigt Bild 4.11.5d. Die 
Abkurzungen haben die folgende Bedeutung: 


NZF1 ,NZF2 Namenszeichen der Funktions-Variablen 

AD(L),ADCH) Anfangsadresse der Funktions-Definition 

AA(L),AACH) Anfangsadresse des Argutmentwertes 

ASCD1 ASCII-Code des 1. Zeichens der Funk 
tions-Definition 

NZA1 ,NZA2 Namenszeichen der Argument-Variablen 


Folgendes Beispiel dient einer ergänzenden Erlauterung, Gehen wir 
von dem Einzeiler-Programm aus: 


10 DEF FN AB(CD)=EF 


welches in der Relation gem. Bild 4.11.6 zu den absoluten Adres- 
sen steht (AV angenommen, Adressen und Inhalte in HEX), 
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In diesem Beispiel ist: 


NZF1 ,NZF2 Der Funktions-Name AB (ASCII-Code von 
"A" mit Bit 7 = 1 gem. Bild 4.11.4) 

AD(L),ADCH) Adresse $1210, weil ab dort die Funktion 
definiert wird 

AA(L),AACH) Adresse S121E, weil ab dort der Wert der 
Variablen CD gespeichert ist 

ASCD1 Der ASCII-Code von E = $45, weil "E" das 
1. Zeichen der Definition "EF" ist 

NZA1,NZA2 Der Name der Argument-Variablen ist CD 


Adresse: 1201 1202 1203 1204 1205 1206 1207 1208 1209 120A 120B 
Inhalt: 13 12 0A 00 96 20 A5 20 41 42 28 
Bedeutung: (L,ınk ) 10 DEF FN A B ( 
Adresse! 120C 120D 120E 120F 1210 1211 1212 1213 1214 
Inhalt: 44 44 29  B2 45 4 0 0 0 
Bedeuture: © D ) = E F U PGM-Ende) 

Bild 4.11,6 


Folger ichtiyg mussen nach RUN dieses Einzeiler-Programms im Spei- 
cher die Werte gem, Bild 4.1.7 stehen, 


Adresse: 1215 1216 1217 1218 1219 1212. 121B 
Inhalt: Ei 42 10 12 1E 12 45 


Adresse: 121€ 121D 121E 121F 1220 1221 1222 
Inhalt: 43 44 0 0 0 0 0 


Bild 4.11.7 
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PROGRAMM-EINZELHEITEN 


1.) Name: 
2.) Ausbaustufe: 
3.) Art des PGMs: 
4.) Anzahl der Bytes: 
5.) Benutzte Variablen: 
VV 
FA 
H1 
H1% 
H1$ 
Ni 
N2 
ZZ 
LV 
6.) Listing: 
Vu) 


4.11 DUMP 


DUMP 
beliebig 
Betriebssystem-Zusatzroutine 


414 


Anfangsadresse der Variablen 

"7 ” Felder 

Hilfsvariable zwecks Zwischenspeicherung 
der Gleitkomma-Variablen-Werte 
Hilfsvariable zwecks Zwischenspeicherung 
der Integer-Variablen-Werte 
Hilfsvariable zwecks Zwischenspeicherung 
des String-Variablen-Inhalts 


ASCII-Code des 1. Namenszeichen 
“ * “2. Namenszeichen 
Zeigervariable zu Hi, H1%, H1$ 
Laufvariable 


Bild 4.111 


Erlauterungen zum Unterprogramm DUMP: 


Zeile 63000: 


Bestimmung von Variablen- (VV) und Feldanfang (FA) 


Zeile 63001: 


Initialisierung der Hilfsvariablen (Platzreservierung) 


Zeilen 63002 - 63003: 


Zur nächsten Variablen gehen (VV=VV+7) und deren Namenszei- 
chen bestimmen (63003) 
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Zeile 63004: 

Der Ausdruck zwischen ON und GOTO ist die Formel fur die Zu- 
ordnung gemaß Bild 4.11.4 zu den Werten 1,2,3,4, welche über 
die ON-Anweisung zu den angegebenen Zeilen führen 


Zeilen 63005 - 63007 und 63009: 

Alle drei Zeilen arbeiten im Prinzip gleichermaßen. Sie geben 
unter Zuhilfenahme des UP-Einzeilers 63010 den Variablen-Na- 
men aus, POKEn dann bei Hinzuziehung vom UP-Einzeiler 63011 
die restlichen 5 Bytes der Variablen in die Hilfsvariable 
gleichen Variablentyps (FA-Z7Z%7 ist die Anfangsadresse der 
entsprechenden Hilfsvariablen) 


Zeile 63008: 
Es wird der Funktions-Name ausgegeben 


Zeilen 63010 - 63011: 
s, Erlauterung fur Zeilen 63005 ... 
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Maschinensprache-Programmierhilfen 


5.1 DATA-Erzeuger 


5.1 DATA-ERZEUGER FÜR MASCHINENPROGRAMME 


Des ofteren stellt sich dem Maschinenprogrammierer das Problem, 
fur sein entwickeltes Maschinenprogramm einen Basic-Loader 
(s. Kap. 5.2) zu erstellen. Zur Abspeicherung eines M-PGMs uber 
ein solches Ladeprogramm ist es notwendig, die einzelnen M-PGM- 
Codes in Form von Dezimalzahlen in DATA-Anweisungen prasent zu 
haben. Die Arbeit ein z.B. 500 Byte langes M-PGM in die Form von 
DATA-Zeilen zu bringen sollte man nicht unterschätzen, 


wir Autoren sind fur die meisten in diesem Buch veröffentlichten 
M-PGM-Basic-Loader einen bequemeren Weg gegangen. Wir haben uns 
eintach ein Programm "gestrickt", welches uns diese muhsame Ar- 
beit abgenommen hat. 


BEDIENUNGSHINWEISE 


Das Programm DATA-ERZEUGER (s. Bild 5.1.2) muß exakt eingetippt 
werden (falls Sie es nicht vom Verlag auf Kassette oder Diskette 
bezogen haben) und darf nicht verändert werden. Dann startet man 
es mit RUN, 


Es werden hintereinander 3 Eingaben Ihrerseits verlangt: 


- Zuerst werden Sie nach der Anfangs-Zeilennummer gefragt, bei 
der die DATA-Zeilen beginnen sollen. Dieser Wert muß >940 sein, 
Wir z.B.haben uns daran gewohnt, die Zeilennummern mit 1000 be- 
gırınen zu lassen, Ab diesem Wert werden die Zeilennummern in 
1Ver-Schritten hochgezahlt. 


- Darın muß man die dezimale Anfangsadresse des in DATA-Zeilen um- 
zuwandelnden M-PGM eingeben. Liegt dieses z.B. im Speicher ab 
Adresse 52000, so ware die Eingabe 8192 erforderlich. 


- Last not least muß noch die Frage nach der Lange des M-PGMs 
beantwortet werden. Nimmt z.B. das M-PGM den Speicherraum 
52000-2012 (hexadezimal !!) ein, wobei das letzte M-PGM-Byte in 
Adresse $2012 angenommen wird, so wurde man als Länge die Zahl 
(dezimal !!) 19 eingeben. 
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Falls ubrigens irgendein Fehler bei den Eingaben passiert ist, 
ist es zwecklos, nach Betatigung der STOP-Taste das PGM erneut zu 
starten, weil dann schon einige PGM-Zeilen automatisch geloscht 
sind. Es bleibt in diesem Fall nur das erneute Laden ubrig. 


Nach Drucken der RETURN-Taste im Anschluß an die letzte Eingabe 
findet ein emsiges Treiben auf dem Bildschirm statt. Man kann das 
Erzeugen der DATA-Zeilen richtiggehend verfolgen. Zum Abschluß 
loscht sich das PGM seine nicht mehr notıgen PGM-Zeilen von al- 
lein, so daß als Resultat nur noch die geforderten DATA-Zeilen 


ubrigbleiben,. 


Zeigen wir doch einfach ein kleines Beispiel: Ab Adresse SEA8D = 
#60045 gibt es ein kleines VC-20-Betriebssystem-Unterprogramm (Ss, 
Bild 511), das fur das Loschen einer Zeile sorgt (s. auch An- 
hang A,4). 


ERS Oo Hk 1 Ir #E15 
EHAF za FE EA JSR EERrE 
ERFE SA BE EA SR $ErBE 
mn Ai LUA HE 
ER47 1 01 STH CEUL IT 
EH#F OA OMA LH Heer 
Era »ı F3 SIM SEr3D Hr 
ERF+l 53 Ue'r 
EHSE 1a FS BF. eh 
ERMk rkil RETS 

Bild 5.1.1 


Mittels DATA-ERZEUGER stellen wir wie folgt DATA-Zeilen fur die- 
ses Unterprogramm her: 


- Wir geben z.B. 1000 als Anfangszeilenrummer ein, 
- Die Frage nach der Anfangsadresse beantworten wir mit 60045, 
- Als Lange geben wir 20 ein. 
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Als Resultat erhalten wir: 

1000 DATA 160,21,32,126,234,32,178,234,169,32,145,209,169,1,145, 
243 

1010 DATA 136,16,245,96 


Um einen besseren Bezug zum ehemaligen M-PGM zu erhalten, werden 
immer 16 Bytes zu einer DATA-Zeile zusammengefaßt. 


PROGRAMM-EINZELHEITEN 


1.) Name: DATA-ERZEUGER 

2.) Ausbaustufe: beliebig 

3.) Art des PGMs: Programm-Erzeuger 
4.) Anzahl der Bytes: 912 


5.) Benutzte Variablen: 


BA Nummer der DATA-Zeile 
AA Momentane M-PGM-Adresse 
N Anzahl der M-PGM-Bytes 
EA M-PGM-Endadresse 
A M-PGM-Code 
AS Zahl A als String 
5Z,M,N Hilfsvariablen 
Fi Flagvariable 
I Schleifenzahler 

6.) Listing: Bild 5.1.2 


7,) Erlauterungen zum Programm: 


Das Kernstuck dieses Programm ist die Zeile 800. In dieser 
Zeile wird der Tastaturpuffer (ab Adresse #631) mit den Steu- 
erzeichen CURSOR HOME (ASCII-Code #19) und 4 RETURN’s (ASCII- 
Code #13) gefullt. Außerdem muß dem Betriebssystem noch "ge- 
sagt" werden, daß insgesamt 5 Zeichen im Tastaturpuffer auf 
Ihre Abarbeitung warten (POKE 198,5). 
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18 


3a 
49 


1] 


ra 

14 

38 

188 
118 
111 
112 
116 
117 
128 
130 
148 
158 
168 
178 
180 
198 
208 
rad 
rı8 
738 
308 
END 
El] 
918 
920 
939 
348 


REM VCERS-MASCHINENCODE-LATA-ERZEUGER 

DATA 

DATA& 

DATA1888 

DATA® 
DATA28,118,38,111,49,112.14,189. 180. 190. 204, 700, 998, 926.930, 949,117,117:68, 71 


DATA?8, 54.116 
DATA88. 918,918 
IATRA9B, 739,890 


PRINTCHRE(147) 

RERDAA 

READER 

RERDBA 

READSZ 

IFSZTHEN?1® 

PRINT" ZEILENNUMMER DER"SFCC6>"1. DATA-ZEILE (29409 :" 

INPUTBR : PRINTCHR&( 1479 ; : GUSUBS@U 'PRINT120:PRINT130:GOTO888 

PRINT" MASCHINENCODE-ANFANGS-ADRESSE (DEZIMAL> :" 

INPUTAR : PRINTCHR$«( 147; : GOSUB3F20@ :PRINT148 PRINT158 GO TOBAG 

PRINT"ANZAHL DER MASCHINEN- CODE-BYTES:" 

INPUTN : ER=ARA+N-1 : PRINTCHRE&( 1479 539; "DATA" SER PRINTIER'PRINT17B' GUTIBRK 
GOSLIBF3@ : IFFITHEN?O8 

FRINTCHR$« 1479; BR; "DATA" AS; :FORI=1T015:00SUB9F38 : IFFLTHEN?OR 

PRINT" ,";A$; :NEXT : BA=BA+1@ PRINT : GOSLBIGR  GUSLBI2R : GOTOSBO 

PRINT: S5Z=1 : GUSUBP10 ' GUTOSAR 

FORI=1T0SZ : RERDN NEXT : READM :PRINTCHR$(C147) N PRINTM'SZ=S2+2  GUSUBF18: BOTOISARA 
PRINTEHR& «14759;  FORI=1T03 READN PRINTN'NEXT 

POKE631, 19 POKE632, 13: POKE633, 13 PÜKE634, 13: POKES3S, 13 POKE138, 5° PRINT"RUN" : 


FRINT48; "DATA", BA RETURN 

FRINTS8.: "DATA": SZ RETURN 

PRINT2@; "DATA" SARA RETURN 

IFAR>ERTHENF1=1: RETURN 

A=PEEK AH) A$=STRECH  AS=RIGHTELHE.LENCAF 1 2 AA=AR+L RETURN 


Bild 5.1.2 


welches Prinzip lıegt hier vor? Dadurch, daß der Tastaturpuf- 
fer per Programm mıt Zeichen gefullt wird, wird dem VC-20 ei- 
ne Eingabe seitens des Benutzers "vorgegaukelt". Am letzten 
Betehl der Zeile 800 (PRINT"RUN") ist erkennbar, daß sogar 
ein erneuter Programmstart auf diese Weise bewerkstelligt 
wırd. Die einfachere Benutzung des Befehles RUN reicht in 
diesem Programm nicht aus, weil RUN samtliche Variablen 
loscht. Da zudem noch durch o.g. Prinzip Programmzeilen ge- 
loscht werden, sind die Werte der gegenwartigen Variablen oh- 
nehin verloren. Also mussen hier DATA-Zeilen als Variablen- 
ubergabe-Hilfsmittel fungieren. Das sind die Zeilen 20-50. 


In den DATA-Zeilen 60-90 stehen die Nummern der Programmzei- 
len, die mittels o.g. Verfahrens im Laufe der Abarbeitung ge- 
loscht werden. übrigens darf schon allein aus diesem Grund 
keine Veranderung an den Programmzeilennummern vorgenommen 
werden. Zeilen werden einfach dadurch geloscht, daß die ent- 
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sprechende Zeilennummer auf den Bildschirm geschrieben wird 
(PRINT-Befehl), und bei Aussprurg aus dem Programm (Zeile 
800) die Zeile mit der Zeilennummer mit RETURN (denn dieses 
Steuerzeichen befindet sich ja im Tastaturpuffer) bestatigt 
wird, was der DELETE-Funktion fur Programmzeilen gleichkommt. 


Auf diese Weise wird sukzessiv das Programm "abgebaut" gemaß 
dem Prinzip: was nicht mehr gebraucht wird, kann geloscht 
werden, so daß schließlich nur noch die bloßen DATA-Zeilen 
mit den gewunschten M-PGM-Dezimalcodes ubrigbleiben, 


5.2 EIN SPEZIELLER BASIC-LOADER 


Ein Basic-Loader hat bekanntlich die Aufgabe, per Basic-Programm, 
welches ja am einfachsten zu laden ist und bequem sonstige für 
den Benutzer wichtige Informationen in Form von REM- oder PRINT- 
Anweisungen beherbergen kann, ein Maschinen-Programm moglichst an 
beliebiger Stelle des freien RAM-Bereichs zu generieren. Es gibt 
zwar inzwischen schon die verschiedenartigsten Basic-Loader, je- 
doch selten findet man einen, der die wichtigsten Vorzuge zu- 
gleich aufweist. 


Mit dem in diesem Kapitel vorgestellten Basic-Loader (s. Bild 
5.21) wurde versucht, einen solchen als universell einsetzbar zu 
schaffen. Er weist die folgenden Merkmale auf: 


- Die M-PGMe sind in jedem beliebigem Speicherbereich generier- 
bar, auch wenn vom Speicherbereich abhangige Sprung- bzw. Un- 
terprogrammaufrufe vorhanden sind, 


- Der Benutzer hat fur die Wahl der Anfangsadresse des M-PGM zwei 
Moglichkeiten, die fur die meisten praktischen Falle ausrei- 
chen: 

- Angabe einer absoluten Anfangsadresse 

- Eingabe von "E" als Entscheidung dafur, daß das M-PGM am En- 
de des verfügbaren Basic-RAMs abgespeichert werden soll, Die 
errechnete Anfangsadresse wird angezeigt. 


181 


5.2 Basic-Loader 


- Es erfolgt eine Meldung, wenn folgende Fehler auftreten: 

- Die Checksumme stimmt nicht mit der im Basic-Loader einge- 
tragenen uberein, was passieren kann, wenn die DATA-Zeilen- 
Werte nicht richtig eingegeben worden sind, 

- Die ausgesuchte Anfangsadresse liegt im ROM-Bereich oder ad- 
ressiert eine Speicherzelle, in der ein Wert nicht gehalten 
werden karn (z.B. RAM nicht vorhanden), 


- An das eigentliche M-PGM werden einige Bytes drangehangt, die 
dazu dienen, die Existenz und Lage von M-PGMen auch über ein 
RESET hinaus erkennbar zu machen. 


ı@ REM (NAME DES PüM) 

2@ REM “ZWECK DES PGM) 

30 L=(LAENGE DES M-FGM) 

48 PRINTCHR$« 147 > "ABLEGEN DES M-Fom:" 

S@ PRINT:PRINT:PRINT"E = AM ENDE YOM BASIC-"SPL64) "RAM-BEREICH" 
6a FRINT :FRINT PRINT" (ZAHL) BEWUENSCHTE AN-"SPCC7) "ANFANGSADRESSE"SPLA8>" CDEZIMA 
L> vom" 

78 PRINTSFPC<73 "FROÖORAMM" PRINT PRINT 

80 INFUTRA$ SID=VYAL(«AS) IFSDTHENISEA 

8 IFAECH"E" THENAU 

188 EM=PEEK(SSI+2SISHFEEK 567  AD=EM-L ER=PEEK (643) +256WPEEK (644) 
110 IFEM=ERTHEN13O 

128 IFFEEKGER-3> CP LFPÜRPEEKGER-2I<C>Z2U6DRPEEK CER-1 CD 196THEN1S® 
134 FOKEEM-3, 197: POÜKEEM-2, 286 : PÜKEEM-1, 196  AD=AL-7  GOSLB2S0 

148 POKEEM-S, AL: PÜKEEM-4 , AH% 

150 GOSUB258 POKESS, AL 'PÜKESE. AHA AL=FRE(9 5DeAD 

168 GOSUBZER8 

176 FÜRI=SDTUSD+L-1 READAS 

180 IFA&<"H" THENA=VAL CAS) CH=CH+A  UNTOZ18 

136 IFA&>"H' THENAL=YALCRIGHTEERS, LENCASI-19)  CH=ÜH+AD  AD=AD+SD  QUSLUB2SR  A=fL BOT 
Ina I 

zu2 A=AHR 

218 FÜKEI,R IFFEEK« II=RTHENNERT 'GUTOZSQ 


220 FRINT PRINT: PRINT"RÜM-BEREICH |" "PRINT"ANDERE WAHL" PRINT"FLER ANFANGSADRESS 
E":STOP 

230 IFIHCIORDARTHENFRINT PRINT"PROGRAMM IST FEHLER- HAFT EINGEGEBEN I 1":STOP 
240 END 


254 AHR=eRI/ 2ER AL=ÄL-ZFEHAHR RETURN 

Sa FRINTCHREM 147" M-FGM-AUFRUF MIT" PRINT 

era FRIMTCEHRELIE2 STE" SSDCHRFCI4EH PRINT 

230 FRINT WARTEN Auf "CHRECIEI"READT"CHRECI4EN" IN" RETURN 


Bild 5.2.1 


BEDIENUNGSHINWEISE 
Bevor das Programm gemaß Listing in Bild 5.2.11 seine Dienste auf- 


nehmen soll, muß es fur das jeweilig zu ladende M-PGM erst ver- 
vollstaändigt werden: 
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- Die Zeilen 10 und 20 sprechen fur sich. 


- In Zeile 30 muß die tatsachliche Lange des M-PGMs angegeben 
werden. 


Falls die Einsprungadresse nicht mit der Anfangsadresse des M- 
PGMs ubereinstimmt, muß die letzte Anweisung der Zeile 150 ab- 
geändert werden: zu AD wird die Adressendifferenz zwischen Ein- 
sprung- und Anfangsadresse addiert. 


- In Zeile 230 mussen die 5 Nullen durch die korrekte Checksumme 
ersetzt werden. Wie man die am schnellsten herausbekommt, er- 
fahren Sie in den "Programm-Einzelheiten" unter 7.) 


- Ab Zeile 280 konnen per PRINT-Anweisungen dem Benutzer wesent - 
liche Bedienurgsinformationen gegeben werden. 


- Ab Zeile 1000 (z.B.) werden die DATA-Zeilen, welche die Dezi- 
mal-Werte der M-PGM-Codes enthalten, nachgetragen. Diese konnen 
ubrigens bequem mit dem DATA-Erzeuger aus Kapitel 5.1 automa- 
tisch erzeugt werden. 

Nun zu einer Besonderheit, die diesen Basic-Loader als recht 
vorteilhaft auszeichnen: fur die Maschınenprogrammierer ist die 
absolute Adressierung der Maschınensprache ja oft ein Greuel, 
weıl sich derartige Programme nicht verschieben las-sen. Nur 
die wenıgsten sind "relocatable” (z. Anhang A.2). über diesen 
Basic-Loader jedoch werden sie quasi-relocatable, d.h.: die 
M-PGMe enthalten zwar absolute Adressen, sie gehen aber in re- 
lativer Form in dem Loader ein. Praktisch sieht das folgender- 
maßen aus. Wir gehen von folgendem kleinen Beispiel-Programm 
aus! 

Adresse ($) 


2010 LDA S$A3 
2012 JSR $2018 
2015 JMP $C474 
2018 AND #502 
201A RTS 


Diese 11 Bytes Programmcode wurden per DATA-Erzeuger aus Kapi- 
tel 5.1 in die folgende DATA-Zeile verwandelt werden: 


1000 DATA 165,163,32,24,32,76,116,196,41,2,96 
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Allerdings konnen momentan noch diese Befehlscodes nur ab Ad- 
resse 52010=#8203 abgespeichert werden. Quasi-relocatable wırd 
der Basic-Loader nach dem folgendem Prinzip: 

Dort, wo im Programm absolute Adressen wie in Zeile 2012 des 
Beispiels vorkommen, wird die dezimale Differenz zwischen der 
absoluten Adresse und der Anfangsadresse des M-PGMs berechnet. 
Im Beispiel wurden wir herausbekommen: 


S2018 (aus JSR $2018) - $2010 (Antangsadresse) = #8 


Diese Zahl mit einem vorangehenden "L" (fur LOW) tritt nun an 
die Stelle des momentan in der DATA-Zeile vorliegenden LOW- 
Werts 24 (der 4. Wert). Dort, wo der HIGH-Wert steht - also der 
5. Wert - steht in Zukunft nur noch eın "H". Die DATA-Zeile in 
neuem Gewand sieht hernach so aus: 


1000 DATA 165,163,32,18,H,76,116,196,41,2,96 


Naturlich sind mittels diesem Prinzip nur solche absolute Ad- 
ressen zu bearbeiten, die zum Adreßraum des PGMs selbst geho- 
ren. Also JMP 5C474 muß unverandert bleiben, es ist ja ein 
Sprung in eine unveranderbare VC-20-Betriebssystemroutine. 


Eine Sache ist hier allerdings noch zu beachten: das M-PGM muß 
unbedingt so geartet sein, daß bei umzuandernden absoluten Ad- 
ressen die Reihenfolge LOW, HIGH, LOW, HIGH, etc. eingehalten 
wird. Wieviele Bytes zwischen diesen Bytes liegen, spielt keine 
Rolle. 


Es gibt noch eine weitere Besonderheit bei diesem Basic-Loader: 
beim Generieren des M-PGMs werden namlich 7 Bytes an das eigent- 
liche M-PGM angehängt (s. Bild 5.2.2). Die letzten 3 Bytes dieses 
Anhangsel bestehen aus dem ASCII-Code des Wortes "END" (Bit 7 ist 
gesetzt), Die zwei darunterliegenden Bytes stellen den Vektor zum 
Anfang des M-PGMs dar; er wird automatisch berechnet. Zwei weite- 
re Bytes dienen eventuellen Zusatzanwendungen seitens des Benut- 
zers, erhalten also mittels dieses Basic-Loaders keinen definier- 
ten Wert. 


Die hier definierten 7 "Verwaltungsbytes" haben den Vorteil, daß 


auch nach einem RESET mittels besonderem Programm (s. Kap. 4.2) 
alle am RAM-Ende existierenden M-PGMe identifizierbar bleiben und 


184 


5.2 Basic-Loader 


der Basic-RAM-Ende-Vektor ($0055,0056) (zum Schutz der M-PGMe) 
korrekt wiederhergestellt werden kann. 


& a ET EEE EEE RE EEE EEE Sue sh een 
a 
! ! 
v —— + 
! Maschinen-Programm IX L ! H 1! 5$C5 ! SCE ! SC4 ! 


Bild 5.2.2 
Die meisten der in diesem Buch vorgestellten M-PGMe bedienen sich 


dieses Basic-Loaders. Sie haben vielleicht schon die oben ge- 
schilderten Vorzuge kennengelernt oder werden sie noch erfahren. 


PROGRAMM-EINZELHEITEN 


1.) Name: BASIC-LOADER 
2.) Ausbaustufe: beliebig 
3.) Art des PGMs: Ladehilfe fur Maschinenprogramme 


4,) Anzahl der Bytes! 941 


5.) Benutzte Variablen: 


L Lange des M-PGMs 

AS Eingabe-Variable 

SD Vorgegebene Startadresse des M-PGMs; 
=0, wenn "E" eingegeben wird 

EM Adresse des Basic-RAM-Endes vor Abspei- 
chern des M-PGMs 

ER Adresse des RAM-Endes 

AD Errechnete Startadresse des M-PGMs 

AH% HIGH-Teil von AD 

AL LOW-Teil von AD 

I Schleifenzahler 

A M-PGM-Code 

CH Checksumme 
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5.2 Basic-Loader 


6.) Listing: Bild 5.2,1 


7.) Erlauterungen zum Programm: 


Zeile 30: 
Hier wird die Lange des M-PGMs eingesetzt. 


Zeilen 40 - 70: 
Der Benutzer wird aufgefordert, entweder "E" oder eine Zahl 


einzugeben, 


Zeile 80: 

Die Eingabe (AS) wird per VAL-Funktion zur Zahl gemacht und 
SD zugewiesen. Falls dieser Wert verschieden von O0 ist, geht 
es weiter in Zeile 160. 


Zeile 90: 
Plausibilitatskontrolle, falls nicht "E" eingegeben wurde 


Zeile 100: 
Berechnung vorı!: EM, dem augenblicklichen Basic-RAM-Ende 
AD, dem zukunftigen Basic-RAM-Ende (nach Ab- 
speichern des M-PGMs = M-PGM-Anfangs- 
adresse 
ER, dem RAM-Ende (Vektor #643,644) 


r 


Zeilen 110 - 140: 

Falls noch keın M-PGM im RAM-Ende-Bereich abgespeichert wor- 
den ist (EM=ER), Fortsetzung in Zeile 130. 

In Zeile 120 wird gepruft, ob am RAM-Ende die Kennzeichnung 
"END" CASCII-Code mit Bit 7 = 1) vorliegt. Falls nein --> 
nach Zeile 150. 

In die 3 letzten Speicherzellen des momentanen Basic-RAM-Ende 
wird die Kennzeichnung "END" hineingeschrieben. Die in Zeile 
100 errechnete Anfangsadresse AD des zu ladenden M-PGMs wird 
um 7 Bytes heruntergesetzt und uber das UP in Zeile 250 deren 
LOW- (AL) und HIGH-Teil (AH%) ermittelt. Dieser Vektor wird 
sodann in Zeile 140 direkt unterhalb der Kennzeichnung "END" 
gespeichert. 
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5.2 Basic-Loader 


Zeile 150: 

Das Basic-RAM-Ende ($0055,0056) wird auf den neuesten Stand 
gebracht, zeigt somit auf den Anfang des zu ladenden M-PGMs, 
damit es vor überschreiben seitens Basic geschutzt ist. Die 
FRE-Funktion (AL ist hierbei nicht von Bedeutung) setzt ent- 
sprechend des aktuellen Vektors $55,56 auch die Vektoren 
$51,52 sowie $53,54 richtig. Die Startadresse SD erhalt den 
Wert von AD, der Anfangsadresse des M-FPGMs. Dies muß nicht 
immer so sein. Der Benutzer kann hier auch diese Einsprung- 
adresse relativ zum M-PGM-Anfang angeben. Wenn die M-PGM-Ein- 
sprungadresse z.B. um 20 Bytes gegenuber der M-PGM-Antangs- 
adresse abweicht, mußte hier stehen: SD=AD+20 


Zeile 170 - 220: 

Schleife zur Generierung des M-PGMs. In Zeile 170 wird das 
nachste Datum (A$) der DATA-Anweisungen (z.B. ab Zeile 1000) 
gelesen. Wenn A$ eine Zahl ist, so wird in Zeile 180 der Va- 
riablen A diese Zahl zugewiesen, die Checksumme CH um sie er- 
hoht und zur Zeile 210 gesprungen, 

Ist das 1. Zeichen von A$ jedoch ein "L", so wird in Zeile 
190 der Variablen AD diejenige Zahl zugewiesen, die auf das 
"L" folgt, die Checksumme CH um AD erhoht, zu AD der Wert von 
SD addiert und von AD der LOW- und HIGH-Teil über UP in Zeile 
250 errechnet, A erhalt den LOW-Wert und es folgt der Sprung 
zur Zeile 210. 

Wenn obige beiden Moglichkeiten nicht galten, so muß A$ ein 
"H" sein, so daß A den vorher errechneten HIGH-Wert erhalt. 
In Zeile 210 schließlich wird das M-PGM-Byte in die geforder- 
te Speicherzelle gePOKEd. Es wird hierbei gepruft, ob das 
POKEn erfolgreich war, indem der abgespeicherte Wert heraus- 
gePEEKed wird und mit dem abzuspeichernden verglichen wird. 
Wenn die Muhe vergebens war, erfolgt die Meldung in Zeile 
220. Ansonsten wird der Schleifenlauf fortgesetzt. 


Zeile 230: 

Hier wird eine Checksummenprufung vorgenommen. Der Program- 
mierer erfährt den fur sein jeweiliges abzuspeichernde M-PGM 
gultigen Checksummenwert einfach dadurch, daß er das M-PGM 
generiert (es folgt danach natürlich die Fehlermeldung aus 
Zeile 230) und per PRINT CH den korrekten Wert von CH abruft. 
Diesen tragt er dann einfach in Zeile 230 anstatt von 00000 
ein, 
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5.2 Basic-Loader 


Zeile 250: 
LOW- und HIGH-Teil-Berechnung fur den Wert in AD 


Zeilen 260 - 280: 

Dieses UP wird ausgehend von Zeile 160 angesprungen. In die- 
sem Teil sollen alle notigen Benutzerinformationen unterge- 
bracht werden, die fur das jeweilige M-PGM gelten. 


5.3  HEX-DEZ-KONVERTIERUNG 


Es ist eine langst bekannte Tatsache: ohne Hexadezimalzahlen (s, 
Anhang A.2) geht’s halt nicht bei der Maschinensprache-Program- 
mierung. Naturlich kann man bei der Umrechnung von Dezimal-Zahlen 
in Hexadezimalzahlen (DEZ-—>HEX) oder umgekehrt HEX--->DEZ den 
wahrscheinlich fur den Einzelfall am muhelosesten Weg gehen, in- 
dem man die Berechnung einfach mit dem guten alten Taschenrechner 
vornimmt. 


Wenn äaber mehrere Berechnungen diesbezuglich notwendig werden, 
dann sollte das lieber ein Programm tun. Da sogar der COMMODORE- 
Monitor nicht uber eine HEX-DEZ-Konvertierung verfugt und andere 
ähnliche Programme vielleicht diese ebenfalls nicht bieten, wer- 
den hier 2 Moglichkeiten gezeigt, eine solche Aufgabe zu erledi- 
gen; 


- ein Basic-Unterprogramm, welches HEX- in DEZ-Zahlen umwandelt 
und fur so manche Anwendungsfälle ausreichen durfte 


- ein M-PGM, welches unabhangig von jeglichem anderen Programm 
arbeitet und beide Konvertierungsrichtungen erlaubt, Es ist 
auch im Direkt-Modus benutzbar und gibt neben dem eigentlichen 
Resultat noch zusätzlich den dezimalen LOW- und HIGH-Anteil der 
jeweiligen Zahl an. Dies kann haufig von Nutzen sein, weil 
sämtliche Vektoren (z.B. Basic-Anfangs- oder Variablenanfangs- 
Vektor) im LOW/HIGH-Format eingegeben werden mussen. 
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5.3 HEX-DEZ-Konvertierung 


1. _KONVERTIERUNG PER BASIC 


Das Unterprogramm in Bild 5.31 kann in jedes Basic-Programm ein- 
gebaut werden. Als HEX-Zahl in String ES wird das UP aufgerufen 
und wird als DEZ-Zahl in ES wieder verlassen, Falls ES keinen 
Wert aufweist, die HEX-Zahl in ES mehr als vierstellig ist oder 
eines der HEX-Ziffern nicht zum erlaubten Wertebereich gehort, 
wird der Variablen ES der Wert "-i" zugewiesen, das als Fehler- 
kriterium im aufrufenden Programm vewertet werden kann. 


1aaa IFHAE=""THEHHE&= "al 245n7ErARoDER" 

Jam E=ski LE=SLENCERNIFLELLORLEF4THENIASE 

1gzEe FÜRI=SITOLE HZF=SMIDENEF. 1,1) 

1a3a FORI=BETOIEIFMIDE HK J+1. LI=SHZFTHENIASR 
14a HERTT 

aaa IFIPISTHENIASE 

1865K ErE#iör 

1876 HEHTI:EF=STRFCE)  RETURH 

aaa Ef="-1' RETURN 


Bild 5.3.1 


@ REM UMSCHALTUNG IN GY 
18 B 5 
2a DATA 78:REM SEI 
3® DATA A2,90:REM LDX #400 
408 DATA 8E,81,982:REM STX $0281 
sa DATA A9,10:REM LOAR #s16 
6a DATA 80,82,82:REM STH 0202 
78 DATA 28,CA,FD:REM JSR $FDCA 
88 DATA 4C,32,FD:REM JMP $FD32 
30 DATA@:REM ENDEZEICHEN 
1 
sad IFD<OTHENFRINT"FEHLER | END” 
518 RETURN a en 
1868 IFHRE=1TTHENHRE=1901234567O9ABLDEF " 
1018 E=B:LE=LEN(EF) : IFLE<LURLED4THENLOSQ 
1828 FORI=LTOLE :HZ#=MIDSCEF, 1,1 > 
1836 FORJ=AT015: IFMIDECHXS, J+1, 1 )=HZFTHENLOSA 
1840 NEXTJ 
1050 IFJ>1STHENOBR 
1060 E=-E#i6+J 
= NEXTI:ES=STR$CE) RETURN 
® E£="-1" RETURN 
Boa "READEF OOSUBIGRO Tea ET 
2018 READEF: IFE="@"THENFRINT:PRINT"EINSPRUNG MIT: ":PRINT"SYS" ;A:END 
2028 GOSUB1908 : D=VAL«E$) :GUSUBSAB : POKER+K , D:PRINTK+13A+KS D:K=K+1:G0T02012 








Bild 5.3.2 
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5.3 HEX-DEZ-Konvertierung 


Die folgenden Variablen werden benutzt: 


ES HEX-Zahl bzw. DEZ-Zahl nach Umwandlung 
HXS Liste der moglichen HEX-Ziffern 

E DEZ-Zahl, welche aus ES gewonnen wird 
LE Anzahl der HEX-Ziffern in ES 

I,J Schleifenzahler 


r 


Bild 5.3.2 zeigt ein Anwendungsbeispiel fur dieses Unterprogramm, 
Es stellt ein Basic-Loader dar, der im Gegensatz zu Dezimal-Zah- 
len (wie in allen anderen Basic-Loadern dieses Buches) den Ob- 
jektcode in HEX in DATA-Zeilen beherbergt. Das M-PGM ın diesem 
Beispiel (die Umschaltung in Grundversion, s. Kap. 6.3, Bild 
6.3.1b) befindet sich in den DATA-Zeilen 10-90. Hierbei ist zu 
beachten, daß die Anfangsadresse ganz am Anfang (Zeile 10) und 
das Ende-Kennzeichen "Klammeraffe" am Ende steht (Zeile 90), 


2. KONVERTIERUNG PER M-PGM 


Das Maschinenprogramm VC-CONVERT (s. Bild 5.3.4 Teile 1-9) wird 
je nach Wunsch in einem beliebigen Speicherbereich generiert. 
Wenn Sie es pauschal am RAM-Ende ablegen lassen, wird es gegen 
überschreiben geschutzt und sie konnen es auch dann aufrufen, 
wenn Sie beliebige andere Programme im Arbeitsspeicher haben. 
Weiterhin ist es koppelbar mit von Ihnen frei definierbaren Be- 
fehlen (s. Kap. 4.1). 


BEDIENUNGSHINWEISE 


Das M-PGM VC-CONVERT wurde in den im Kapitel 5.2 beschriebenen 
Basic-Loader (s. Bild 5.3.3) eingebunden. Detailinformation 
bezgl. diesem kann dort in Erfahrung gebracht werden. Der Basic- 
Loader wird normal mit RUN gestartet. Sie werden gefragt, ab wel- 
cher Adresse (dezimal) das M-PGM generiert werden soll. Bei Ein- 
gabe von "E" wird es ans Basic-RAM-Ende gespeichert. 


Nachdem RETURN gedrückt worden ist, werden auf dem Bildschirm 


diejenigen SYS-Befehle angezeigt, mittels denen dıe Konvertie- 
rungsroutine aufgerufen wird. 
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5.3 HEX-DEZ-Konvertierung 


18 REM WL-LONYERT 

28 REM TEZ-HEX- UND HE#-DEZ-ZAHLENKÜNYERTIERUNG 

3a Leibe 

48 FRIHNTEHREN LAD" ABLEGEN DES M-PGM:" 

Sa FRINT:FRINMT'PRINT"E = Am ENDE YOM RRSIC-"5PCC4) "RAM-BEREICH" 
sa FRINT:PRINT FRINT"KZAHL> GEWIIENSCHTE AN-"SPCK7)"ANFANGSADRESSE" SPC)" CDEZIMA 
L> vom" 

ra PRINTSFCC7H PROGRAMM" PRINT:PRINT 

a INFUTRAF:SDeVvALltAs>: IFSDTHENISR 

A IFAFL>"E" THENGA 

10a EN=FEEKISTIHZISHFEER (5655 AD=EM-L 'ER=FEEK (643) +256#FEEK (644) 
i1& IFEM=ERTHENISG 

Led IFPEERÜER-37CHLFT7ORPEERGER-27C>2B60RPEER (ER-19<CP136THEN1SR 
130 PÜKEEM 137: POKEEM-2. 206 PÜKEEM-1, 196: AD=AD-7 : BOSLIB258 





14 EEM-3. AL. POKEEM-4, AH% ‚ 
156 UB259 : FÜKESS AL: POKESS ANZ AL=FRE 3) :SDeAl 
1E8 LIB268 

ira I=5IT050+L-1 READA$ 








TFAg« H" THENA=WAL N. A  CH=SLHH+RA  GOTOZ21A 
IFAt>"H" THEHAD=YALSRIGHTSEERF,LENGAFS-1 9 CH=CH+AD : AD=AD+SD : GOSLIBZ2SR  A=AL 'GOT 







3 H=fHhr 
ea FOKEIL.A:IFFEERS DS=ATHENNERT GOTO23O 

FRINT PRINT FEINT"RÖM-BEREICH !" FRINT"ÄNDERE WAHL" PRINT"FIER ANFANGSADRESS 
STUr 

TFEHEIZATSSTHENFRINT:PRINT"FRÜGRAMM I5T FEHLER- HAFT EINGEGEBEN !!1":STOP 
@ HEW 
2a AHR=AD2SE AL=Al-ZIEHHAHr RETURN 
FRINTEHRES 14 2 M-POM-AUFRUF MIT" PRINT 
FRINTEHRER LS" SYS" SDCHRET 1573" „ DEZ-TERNM" HRSG 1465 PRINT 
PRINTEHRIE RO" Sr S" SDCHRS$ >" $HEX-ZAHL "EHRE 1469 : PRINT 
FRIMT"MARTEN AUF "CHR$&L1B3 "READY" CHRFC1463" 1" RETURN 

TEEFZENT ‚al, 36,24, el, 3, 20, 3,115 
1816 UATAH, FE: LEBR, N. BE, 138, 205.32, 247,215: 162.0, 32, L167:H, 166 
1229 DATA, IE 32,205,221:162,5,92,L167.H,166,21,169,0,32 
1a DATAE < 169,259. 72:168,4,32.115.0.2490,20,1936,48.248 
a4 DATAIS2. 19.821 ,1.246.H. 240.6, 292. 16, 248. 76. 72,210, 138: 72,16 
1050 THTAZSL: 198.4, 24, 245, 1655: 8, 133,164, 169.0, 133, 20.133, 21,32 
1asa DATALIS4.H,133, 20,144:8,932,L134,H,133,21, 144,1, 104,32.L26 
ara DATAH, 162: 10,32:1L1657,H:169, 21,166, 20,32, 205,221, 169,164, 133 
1232 DATAB. 169.13, 76, 122, 842.104, 170,104,168,184,133. 163,48, 14,194 
1090 DRTA4S,13.18,19,19,10,5,163, 133,163, 96. 176.,3,230, 163,24 
1180 DATAISE:VY2,138,72:165:163, 96.189: L226.H, 240,6. 32,122. 242,292 
111 DRTR2RE 245.96. 189, L246,H, 76, 122: 242.170,41,15:168,138,41,240 
1122 TIATH74,74,74,74.1760,3%2,L179:H,152.170,32,L179.H,96, 162,14 
1130 DATAS2,L167,H, 165,21,32,L185,H, 169,28. 32,L189,.H, 162.18, 76 
1148 .H, 13,39, 76,61,4,32,39,72.61,.0,32,32,39,0 
Sm I ed, 36:9, 13,0, 48,49,50,91,92,93,94,53,596,57 
1168 DATA6S, 66,67:68,69: 70 






























Bild 5.3.3 


Beispielsweise haben Sie ein Gerät in Grundversion und entschei- 
den per Eingabe von "E" sich dafur, daß VC-CONVERT am Ende des 
Basic-RAM generiert wird. Falls nicht schon andere M-PGMe dort 
vorliegen, werden folgende SYS-Befehle angezeigt: 


SYS 7418, (DEZ-Zahl) fur die Umwandlung DEZ--->HEX 
SYS 7418,$CHEX-Zahl) fur die Umwandlung HEX->DEZ 
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5.3 HEX-DEZ-Konvertierung 


Man kann vor die DEZ-Zahl auch das DEZ-Symbol "#" setzen oder sie 
kann durch eine Variable oder einen beliebigen Term ersetzt wer- 
den. 


Z.B. wird nach: SYS 7418,12345 oder SYS 7418,#12345 (Return) 
das Resultat: #1=57 #H=48 53039 ausgegeben. 


Nach! SYS 7418,59600 (Return) erscheint: #L=0 #H=150 #38400 
Vorausgehende Nullen bei HEX-Zahlen mit weniger als 4 Stellen 


konnen weggelassen werden. Die zusatzlichen Angaben vom LOW- (L) 
und HIGH-Anteıl (H) sind in vielen Fallen recht hilfreich. 


PROGRAMM-EINZELHEITEN 


1.) Name: VC-CONVERT 
2.) Ausbaustufe: beliebig 

3.) Art des PGMs: Basic-l,oader 
4.) Anzahl der Bytes 


des Basıc-Loaders: 1968 
des M-PGMs: 262 


un 
De 


Benutzte Variablen: s. Kap. 5.2 

6.) Listings 

des Basic-Loaders: Bild 5.3.3 

des M-PGMs: Bild 5.3.4 (Teile 1-3) 


7.) Erlauterungen zum Basic-Loader werden in Kap. 5.2 gegeben und 
zum M-PGM implizit im Listing (Bild 5.3.4). 
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Bild 5.3.4 (Teil 1) 


193 


5.3  HEX-DEZ-Konvertierung 
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Bild 5,8:4 (Teil 


5.4 SPEICHERBEREICHE VERSCHIEBEN, VERGLEICHEN UND FÜLLEN 


Manchmal braucht der Programmierer die Moglichkeit, die Inhalte 
eines Speicherbereiches in einen änderen Bereich zu kopieren bzw. 
zu verschieben. Wenn es sich dabei um eine kleinere Anzahl von 
Bytes handelt, laßt sich dies per Basic-Schleife bei Einsatz von 
PEEK und POKE einfach und schnell bewerkstelligen. Diese Methode 
kostet jedoch recht vıel Zeit, wenn es sich um z.B. ein 8 KByte 
langen Bereich handelt, und das kommt nicht so selten vor, wenn 
wir an die VC-20-Modulspiele denken. 


Das hier beschriebene Programm (s, Bild 5.4.1) sorgt nicht nur 
furs übertragen von Bytes (TRANSFER), sondern vermag auch die In- 
halte von zwei Speicherbereichen miteinander zu vergleichen (COM- 
PARE) oder auch einen Bereich mit einem vorgegebenem Wert zu ful- 
len (FILL), dies alles in Sekundenbruchteilen. 


Das Maschinenprogramm wird je nach Ihrem Wunsch in einem beliebi- 
gen Speicherbereich generiert. Wenn Sie es pauschal am RAM-Ende 
ablegen lassen, wird es gegen überschreiben geschutzt (es sei 
denn, Sie zerstoren es aus Versehen bei Verwendung der FILL-Funk- 
tion) und sie konnen es auch dann aufrufen, wenn Sie beliebige 
andere Programme im Arbeitsspeicher haben, Weiterhin ist es kop- 
pelbar mit von Ihnen frei definierbaren Befehlen (s, Kap. 4.1), 
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5.4 TRANSFER, COMPARE, FILL 


BEDIENUNGSHINWEISE 


Das Programm wird normal mit RUN gestartet. Sie werden gefragt, 
ab welcher Adresse (dezimal) das M-PGM generiert werden soll. Bei 
Eingabe von E wird es ans Basic-RAM-Ende gespeichert. Andere dort 
eventuell schon vorhandene M-PGMe werden nicht angetastet, 


1& REM VC-TRANSFER/COMPARE/F ILL 

28 REM SCHNELLES LIEBERTRÄGEN/WERGLEICHEN/FUELLEN YON SPEICHERBEREICHEN 
3a L=e235 

40 PRINTCHR$«147> "ABLEGEN DES M-PGM:" 

S8 FRINT:PRINT'PRINT"E = AM ENDE YOM BÄSIC-"SPC<4) "RAM-BEREICH" 

68 PRINT:FRINT:PRINT"<CZAHL> GEWUENSCHTE AN-"SPC<(7)"ANFANGSADRESSE" SPC)" CDEZIMA 
L> vom" 

78 FRINTSPR «73 "FRÜGRAMM" PRINT: PRINT 

aa INPUTAF SD=-VALCA®): IFSDTHENISO 

aa IFAFCD"E"THEN4R 

12& EM=PEEK (357 +256#PEEK (56) : AD=EM-L 'ER=PEER (643) +256MPEEK (644) 

1390 PÜKEEM-3. 177: POKEEM-2. 206 :POKEEM-1. 196 : AL=AD-7 :B05UB250 

14a POKEEM-5, AL FOKEEM-4, AHA 

150 GOSLB2SQ:FOKRESS, AL PÜKESE, AHR AL=FRE (95 : SU=AD 

162 GÜSUR26& 

17a FORI=SDTOSD+L-1 :READAF 

104 IFRE<L"H"THENA=VALCAF? :CH=CH+R'G0UTOZ1O 

139 IFA£D>"H"THENAD=VALCRIGHTECHF,LENCAS)-19 3 CH=CH+AD : AD=AD+SD : BOOSUB2SR: A=AL :GOT 
0218 

za6 A=AHr 

21a POKEI.R:IFFEEKCID=ATHENNEXT  GOTO230 

228 PRINT PRINT PRINT"RÜM-BEREICH !" 'PRINT"ANDERE WAHL" PRINT"FUÜER ANFANGSADRESS 
ErISTÜP 

2380 IFCH<>28543THENPRINT :PRINT"PROGRAMM IST FEHLER- HAFT EINGEGEBEN |!!":STOP 
24@ NEW 

2a AHR=AD2SE  AL=ÄD-ZIEHÄHR RETURN 

268 FRINTCHRECIAFSWEBERTRAGEN MIT: " 

278 FRINTCHRSCLEI" SYS" SDCHREL1S7N" OR, ZA, N"CHREC146) PRINT 

272 FRINT"VERGLEICHEN MIT" 

274 PRINTÜHRFLISI" SYS" SD+ECHREC 1573" OR, ZA, N" CHREC146) PRINT 

877 FRINT"FUELLEN MIT " 

273 PRINTEHREI183"S7S" SD+LZCHREK 172" ,AR,ER. I"CHRSC146) PRINT 

zaa FRINT"GR=ULELLBEREICHANFANG ZA=ZIELBERE ICHÄNFANG" 

ze1 FRINT"NeANZAHL DER BYTES AR=ANFANASADRESSE 

283 PRINT"ERermuHne. Kurdal.. 2 ‚ IMINHALT “8. ..25899" :PRINT:PRINT 

285 PRINT FRINT"UARTEN AUF "CHR$L18) "READY" CHRSEC146>" 1 1" :RETIIRN 

ı1aaG DATA32,L18,H,76,L94,H.32,L18,H,76,1L171,H,32,L18,H, 76 

1818 DATAL199.H,120,32,121.08,208, 9, 76,8,207,201,44,208,3,32 

1828 DATA115,8,32,1L99,H, 132,169, 139,164, 32,1L92,H, 132,166, 133, 167 

1830 DATA32,L32,H. 160,4.96, 56, 165,169, 229,166, 165, 164,229, 167.144 

1948 DATASZ.32.L196,H.48.46,177,163, 145,166, 32.1L79.H, 208. 242,238 

1859 DATA163.209.2,230. 164.230, 166, 208. 2,230, 167,96, 32,253, 286, 32 

19689 DATF138,285.32,247,215,192,168, 133. 169,96, 169, 168,208. 2,198, 169 
1878 DATA198, 168,36, 169.96,24.169, 168, 72,181,166, 133, 166, 165, 169, 170 
1282 DATA181,167:133,167,24,194,191,163.133, 163,138, 191,164, 133,164, 165 
1298 DATA163.205,2,198,164,198, 169, 165. 166, 208, 2. 198, 167,198, 166,32 
1198 DATAL186,H.:49, 298, 177,163, 149,166, 76,1L143.H,32,L106,H, 48,196 

1118 DATA177,163, 209,166. 248,12. 166, 163, 165. 164, 32.205. 221,169, 32,32 
112@ DATA122,242,32,1L79,H, 208,228, 169, 169, 249,3, 76, 72,210,166, 168 

11232 DATASS,165.166:229,1693,.133, 168,165: 167,229. 164: 133,169, 144,236, 138 
1148 DATA145,163,32,L79,H.32,L186,H. 16: 249,96 


Bild 5.4.1 
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5,4 TRANSFER, COMPARE, FILL 


Nach Drucken von RETURN erhalten Sie auf dem Bildschirm eine aus- 
fuhrliche Beschreibung uber die Bedienungsweise des M-PGMs. 


Falls Sie ein Rechner mit GV (Grundversion) besitzen und sich 
uber die Eingabe "E" fur das Generieren des M-PGMs am RAM-Ende 
entschieden haben, konnen Sie die 3 Funktionen TRANSFER, COMPARE 
und FILL in der folgenden Weise aufrufen: 


TRANSFER durch Eingabe von: SYS 15743,QA,ZA,N 
wobei QA die Anfangsadresse des zu verschiebenden Bereiches, 
ZA die Anfangsadresse des Zielbereiches und N die Anzahl der 
zu verschiebenden Bytes ist. 


COMPARE durch Eingabe von: SYS 15749,QA,ZA,N 
QA, ZA, N siehe bei TRANSFER 


FILL durch Eingabe von; SYS 15755 ,AA ,EA,I 
wobei AA die Anfangs- und EA die Endadresse (einschl.) des- 
jenigen Bereichs ist, der sämtlich mit dem Wert I gefullt 
wird. 


Die SYS-Adressen sind von Ihrer Wahl der M-PGM-Adresse oder bei 
"E" von der bereits am RAM-Ende sich befindenden anderen M-PGMe 
bzw. von der Speicherausbaustufe abhangig, wird aber automatisch 
ausgerechnet und Ihnen sofort bei Generierung angezeigt. Es ist 
ratsam, sich diese Adressen irgendwohin aufzuschreiben. Dies ist 
allerdings nicht notwendig, wenn Sie die 3 SYS-Sprunge indirekt 
über selbst definierte Befehle realisieren (s, Kap. 4). 


PROGRAMM-EINZELHEITEN 


1.) Name: VC-TRANSFER/COMPARE/FILL 
2.) Ausbaustufe: beliebig 
3.) Art des PGMs: Basic-Loader 


4.) Anzahl der Bytes 
des Basic-Loaders: 2133 
des M-PGMs: 235 


5.) Benutzte Variablen: s. Kap. 5.2 
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5.4 TRANSFER, COMPARE, FILL 














zaaa JSF 2012 Quelle, Ziel. Anzahl einlesen 

zag3 JMP 2036 Sprung, zur TRANSFER-Routine 

zeas JISK E28” "Quelle; Ziel, finzahl einlesen ne 
zaa9 IMF S2aHR ________ $Prung zur COMFARE-Routine KREE 
28a, SE FZ612 Anfans. Code, Inhalt einlesen 

2EaF _IMF S2AC7_____.,_..SPruns® zur FILL-Routine 

zei1z SEI 

2213 [5R #0073 Momentanes Zeichen nach Ä 

ze1e EHE #201B Sprung. wenn noch nicht Zeıle zuende 
2018 JMP_$CF@S ___ _ Ausgabe: "SYNTAX ERRÜR" De 
zeIR CHF #+2C 

2A1iD BNE 2022 Sprung, wenn momentane Zeile <> Komma 
zuaiF JSR_ 800873 0 __ _ Hole naechste= Zeichen 

2022 JSR $205F 1. Zahl einlesen 

2925 STr #A3 nach $A3, £A4 

2027 STA #A4 ee 

2823 JSR #205 2. Zahl einlesen (mit Komma-Check ) 
202 STr At nach 8A6. #A7 

SMZE STH A? 

2asa TSR 22050 3. Zahl einlesen (mit Komma-Check > 
2a33 LDYr #42 Y=o0 

2033 RTS u 

2036 SEC 

2037 LIA £A3 LEAB,EA4) - CEAG, A?) 


2m393 SEC EA6 
ZO3E LUR £A4 
ZU3D SEE £H7 


Za3F BEL 82475 Sprung, wenn Quelladresse < Zieladresse 
za41 JSR F2USA Zaehlerstand abfrasen 

zu44 BMI 22974 ferti9, wern Zaehler unterschritten 
zu4s LOHR (EA3:,Y Inhalt von ($A3,& 

za43 STH Ken. r auf (SAG), uebertrasen 
eag4A SR 2. Vektoren $A3,#A4 und $AS,A7 erhoehen 


za4I BHE 2041 

PETE: Vz U Z[euuE 10 7727-707 Tour 1 IcHe 7-7 
2051 BNE 82055 

2033 ING #4 und £ZA&. A? erhoehen 
2055 ING #A6 

zus? BNE #20SB 

eas9 ING EA? 





EHSE RTS 

2057 JISR $CEFT Komma-Check BT 
zZeSF JSR SCOSA numerischen Term einlesen und 

za62 JSR £L7Fr’ Inteser-Umwandlun® nach YA 

za6ss STr AS Zahl nach SA8,#A9 (Zaehler) 

20657 STA £AF 

2a63 RTS 

ZOER LIA AS Zaehler AS, #A9 vermindern 


za6C BHNE 2070 

zU6E DEC #AF 

2070 LER Ad 

2072 BIT $#° Bit 7 - Check wom HIGH-Zaehlerbyte 
2074 _RTS 


Bild 5.4.2 (Teil 1) 


198 


2975 CLE 
zu76 LDA AS 
za7a PHA 
2073 RUC £A6 
207B STR #6 
Zar LOA £A3 
2ar?F TARA 
zuge Arc £A7 
2082 STA_$A7 
zaa4 SLC 
2085 FLA 
2886 ADC #A3 
2088 STA #A3 
2er TA 
2a8B All #4 
zgsu STA £Ad4 


zaeF LIR Ha 
2091 BNE 2095 


2433 DEC £A4 
2095 DEL #3 
2297 LOA $Fis 


2439 BNE 2030 


ZUR DEC EA? 
2890 _DEC £A6 


2asF .ISR F2R6A 
zaA2 BMI_#2074 
zuA4 [DA KER35 7 
2aA6 STA CEABI, 
ZBAB MP $ZABF 


2 


Zara LDA (#A3r, Tr 
2aB2 CHF CEABN. TV 
zap4 BEN F2aCz 


zZef6 [IK $A3 
2ape LIA #4 


20ER JSR_ ODCO. 
Zapn [oA #820 

20BF JSR $FE7A 
zac2 JSR $204F 
2aCS BNE #2ORB 


DM, 
ZURE EMI 2074 


5.4 TRANSFER, COMPARE, FILL 


Addition: £A6.$A7 + EA. #3 


<£&AS> retten 


c$A39> retten 


Additien: sA3.sA4 + AB, #H3 
LERR) 


“$A3) 


Tyektoren SA3,$A4 


und At. £A7? vermindern 


Zaehlerstand abirasen 
SFrung, wenn Zaehler unterschritten 
Inhalt <EA3,0 auf 
(£A6).,A webertragsern 

SPprun®s: immer 
Zaehlerstand abfrasen 
Sprung, wenn Zaehler unterschritten 
Inhalt “#RA25.2 mit 

CEABI.H vergleichen 
Frurs. wenn identisch 


[23 


Mektor As. #4 
2 und 
ae Kaas, Zn SFHLE ausgeben 
Vektor #A3.#A4 erhoehen 
Srrung'_ immer 


20C7 Lin aa 


2059 BEU FZOCE 
2&CR JMP #0248 


2acE LIX #A8 
Zade SEC 

zent LOA As 
zes SEC zA3 
2a05 STA KAB 
2007 LIA #A7? 
zang SEL £A4 
ZODR STA £A9 


ZOD0 ACC $2OCR 


200F TXA 


2BE8 STA CEABd., Tr _ 
2uE2 JSR +2Q4F 
20ES JSR #206A 
2EE8 BPL #2ADF 


2BER RTS 


Sprung. wern Butewert % 256 
Aussabe: "ILLEGAL QUAHTITT" 
Butewert nach K 


Differenz \#An, #7) — (EAN, EH4) 


nach £Ad,#H9 (Zaehler) 


Sprung, wenn Ende < Anfan® 


_ Butewert nach (FA33,0 _ 
Vektor #A3,#A4 erhoehen 
Zaehler 2Ad,$A$ vermindern 
Sprung, wenn noch nicht © 
ferti® 


Bild 5.4.2 (Teil 2) 
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5.4 TRANSFER, COMPARE, FILL 


6.) Listings 
des Basic-Loaders: Bild 5.4.1 
des M-PGMs: Bild 5.4.2 (Teil 1 u. Teil 2) 


7.) Erlauterungen zum Basic-Loader werden in Kap. 5.2 gegeben und 
zum M-PGM implizit im Listing (Bild 5.4.2). 
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6 


Auswahl einiger Nutzprogramme 


6.1 DATA SUCHEN 


6.1 DATA SUCHEN 


Das Programm "DATA SUCHEN" stellt Ihnen eine Maschinensprache- 
Routine zur Verfugung, mit deren Hilfe DATA-Zeilen nach vorgege- 
benen Begriffen durchsucht werden konnen. Alle Daten, die den 
vorgegebenen Begriff enthalten, werden nach Ruckkehr aus dem M- 
PGM mit READ gelesen und einer Variablen zur Weiterverarbeitung 
übergeben. In unserem kleinen Basic-PGM, das ubrigens nur als 
Beispiel dienen soll, wird das Datum, das den gesuchten Begriff 
enthalt, der Variablen 55$ ubergeben und anschließend auf den 
Bildschirm dargestellt. Das PGM sucht solange nach dem vorgegebe- 
nen Begriff, bis der Klammeraffe (@) als DATA-Ende-Zeichen er- 
kannt wird (Zeile 60000), 


Der große Nutzen dieser Maschinensprache-Routine liegt in der Ge- 
schwindigkeit, mit der dıe DATA-Zeilen nach den vorgegebenen Be- 
griffen durchsucht werden. Eine Suchroutine mit den gleichen Lei- 
stungsmerkmalen in Basic programmiert benotigt, abhangig von der 
Anzahl der Daten, etwa das 50- bis 100fache der Zeit. Testen Sie 
es selbst! 


BEDIENUNGSHINWEISE 


Bevor Sıe das PGM starten, mussen die Daten eingegeben werden. In 
unserem Beispiel konnen die Zeilen 321 bis 59999 mit Daten be- 
schrieben werden, 


Wenn Sie dann das PGM starten, wird das M-PGM generiert und der 
Basic-Loader anschließend geloscht, Danach verlangt der Computer 
die Eingabe des gesuchten Begriffs (max. 16 Zeichen), z.B. "ABC". 
Nach Beenden der Eingabe (Return) werden alle Daten, in denen die 
Buchstabenkombination "ABC" enthalten ist, auf dem Bildschirm 
dargestellt. Von einem gefundenen Datensatz gelangt man zum nach- 
sten einfach durch Drucken der Leerzeichentaste,. Wenn keine Daten 
(mehr) gefunden werden, erscheint der Hinweis "Nichts (mehr) ge- 
funden". Man druckt wieder auf die Leerzeichentaste und kann mit 
erneuter Suchbegriffeingabe fortfahren. 
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6.1 DATA SUCHEN 


Das PGM kann in zwei Arten verlassen werden: 


- Wird man aufgefordert, ein Suchbegriff einzugeben, und druckt 
"Pfeil nach oben", so ist das Programm beendet. 


- Wird ein gefundener Datensatz angezeigt und die "Pfeil nach 
oben"-Taste gedruckt, so wird das Programm zwar auch verlassen, 
es wird jedoch zusatzlich diejenige Zeile ausgeLISTet, worin 
der gefundene Datensatz vorkommt. Dıes kann fur Editierzwecke 
recht nutzlich eingesetzt werden. 


Das beendete Programm ist nun scheinbar unvollstandig, weil - wie 
anfangs erwahnt - derjenige Teil des Programms geloscht wird, der 
die schnelle Maschinensprache-Suchroutine generiert. Die Generie- 
rung ist allerdings so vorgenommen worden, daß sich dieses M-PGM 
zwischen dem Basic-PGM-Ende und der Adresse liegt, wohin der Va- 
riablenanfangs-Vektor (Adressen $45,46) zeigt. Somit kann das 
eben verlassene, evtl. auch editierte, PGM ohne Bedenken abge- 
SAVEd werden, denn das Such-M-PGM ist sicher im Programm ver- 
packt. 


PROGRAMM-EINZELHEITEN 


1.) Name: DATA SUCHEN 
2.) Ausbaustufe: beliebig 
3.) Art des PGMs: "Elektronischer Karteikasten" mit schnel- 


ler Suchroutine 


4.) Anzahl der Bytes 
des PGMs mit Basic-Loader-Teil: 1605 
aA ohne " : 696 
des M-PGMs: 256 


5.) Benutzte Variablen: 


A Startadresse fur SUCHEN 

B i; = WEITERSUCHEN 
I Schleifenzahler 

M M-PGM-Code 

5 Lange des gesuchten Begriffs 
AS Tastatur abfragen 
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ıD 
2 D 
an 


REunenen 


GNARaRUMT SS 


-_ 


13 


188 
138 
za 
228 
230 
240 
259 


6.1 DATA SUCHEN 


Ss Gesuchter Begriff 
SSH Gefundender Datensatz 
ES Eingebenes Zeichen 


Benutzte Zero-Page-Adressen: 


S00 Lange des gesuchten Begriffs 
501,02 Adresse der vorigen Basic-Zeile 
503,04 ie " aktuellen " " 
SFB,FC = " nächsten " 2. 
505 Zwischenspeicher furs Y-Register 


ATA119,139,148,11,12:13,14,1 
ATA1S,16,17,18,19, 24, 21,2 
ATA22: 23,24, 25,158: 18,3, 168 
DATA165,43, 133,3, 165,44, 133,4, 168,8, 177,44, 139,251. 206,177 
URTA43, 133, 252, 234,169, 3,193, 1, 165,4, 139,2, 165,251, 133,3 
DATA165, 252,133; 4, 160,8. 177.3, 193, 251,208. 177.3, 133, 252.200 
DATA177,3.133.63, 208, 177,3, 133,64, 234,208, 177,3.281, 131,208 
DATAZ11, 136, 132,5, 234,238, 5, 164,5, 162,0.234. 200, 177,3,240 
DATA135,201.64: 248, 11,221,6, 18, 208,235,232, 228,8. 208, 237,234 
DATA136, 177.3. 201,44,240, 31,281, 131,208, 245, 234, 168, 2, 177,1 
LATA133, 63, 248, 177:1.133.64. 234,208, 1771,20, 251.165, 1,166 
DATA2, 133. 3. 194,4.234, 166,4. 165,3:132,5,24, 191,5. 144 

DATR1 232. 194.66, 139,69. 96,288, 172, 168, 43,133, 3, 165,44,133 
DATA4, 224,168, 8, 177,3, 133, 251,208, 177,3, 139,252, 165,3, 133 
DATA1,169,4,1933,2. le5.281. 133,3, 165: 252, 133,4, 160.8, 177 
DATA3. 133, 291.290, 177,3, 133, 252, 28, 177,3:197,63. 208,222, 200 
DATA177.3, 197,64. 208,215, 169.4, 197.66, 240,14: 24,169,0,229 
DATA. 24, 181.65, 1393, 5,198, 5,208, 173,24, 165,65,229, 3,133 
DATAS, 199, 5,208: 162.240, 1698,2:8.9.0,0:0.9.0,0 
REM... 16 STELLEN... .# 

FÜKE46, FPEEK 46) +1 CLR 

A=(PEEK (469-1 )W2S6+PEEK(45) Bef+153 

FORI=1T024 RERDM NEXT 

FÜR =910255  READM:FOKEA+L,M: NEXT: RESTORE 
FRINTCHRE“ 1473: FURT=1T08  READM:PRINTM NEXT 








0 FÜKE631 19: FORI=1T(9 POKESA1+I, 13: POKE19R, 18: NEXT: PRINT"RUN" END 


Sg="" PRINTCHREC147) PRINT: PRINT PRINT INPUT "SUCHBEGRIFF" S# 
SeLEN(CSE)I IFSSLORSPISTHENL2R 

IFSt=" t" THENEND 

POKER,S 

in. FÜKEPEEK 4A’ HZSE+PEEK (439 +4+1, ASCCMIDSCSF, 1,199 NEXT: SEA 
REALSSSE: IFSSSa"M" THEN2SQ 

FRINT: PRINT FRINTSS# : BOSUB2658 : SYSB 'GOTO23@ 


PRINT: PRINT :PRINT"NICHT MEHR» GEFUNDEN" : GÖSUBZER :BC0TON1?Q _ 


PA=Ta] 
278 
230 
298 
ELL] 


68008 DATAB 


PRINT PRINTCHRECZSICHRSCIBI "WEITER MIT TASTE"CHRSC146) 
BETEF' IFE£=""THEN278 

IFE$C>" T" THENRETURN 

FRINTCHRE 147 IOÜHREC14SI "LS "FEEK(63I) +2IEWPEEK (64) 
FÜKER31,19: POKE632,13:FOKE198.2:END 


Bild 6.1.1 
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6.1 DATA SUCHEN 


6.) Listings 
des PGMs mit Basic-Loader-Teil: 8. Bild 6,.14:1 
Ze . ohne " : s. Bild 6.1.2 
des M-PGMs: s. Bild 6.1.3 


za 


= 


Erlauterungen zum Basic-Programm (s. Bild 6.1.1): 


Zeilen 1 - 3! 
Zeilennummern, die nach Generierung des M-PGMs geloscht wer- 
den 


Zeilen 10 - 25: 
DEZ-Dump der M-PGMs 


Zeile 100; 

Die 16 Stellen hınter REM dienen als Ubergaberegister fur das 
M-PGM. Die Große des ubergaberegisters ıst willkurlich ge- 
wahlt worden. Sie kann durch Andern der Zeilen 100 und 180 
dem jeweiligen Bedarf angepaßt werden. 


Zeilen 120 - 160: 

Basic-Loader fur das M-PGM; A = Startadresse SUCHEN, B = 
Startadresse WEITERSUCHEN: der Basic-Loader wird mittels der 
Zeilen 150 und 160 nach Generierung des M-PGMs geloscht. 
Dies funktioniert tolgendermaßen! 

Erst wird der Bildschirm geleert (CHR$(147)), dann werden die 
8 Zahlen der DATA-Zeile 1 gelesen und in die ersten 8 Zeilen 
des Bildschirms geschrieben, in die 9, Zeile wird der Befehl 
RUN ausgegeben (am Ende der Zeıle 160). In den Tastaturpuffer 
- die Speıcherzellen #631-640 - werden 10 Zeichen abgelegt. 
(mehr ist nicht moglıch!): zu Anfang der ASCII-Code fur CUR- 
SOR HOME (#19), dann per Schleife 9mal CR (#13). Zum Schluß 
muß per POKEn der Zahl 10 ın die Speicherzelle #198 dem VC-20 
noch mitgeteilt werden, daß 10 Zeichen im Tastaturpuffer auf 
ihre Abarbeitung warten, 

Was geschieht hierbei nun? Alle 8 Zeilen, die in DATA-Zeile 1 
stehen werden geloscht, weil der VC-20 den vorgegebenen Zei- 
chen des Tastaturpuffer gemaß mit dem Cursor zur 1. Zeile 
springt und dann 9mal die Taste "Return" von allein besta- 
tigt. Da jedoch die auf dem Bildschirm stehenden Zeilennum- 
mern ohne Inhalt mit "Return" bestatigt werden, heißt das: 
diese Zeılen loschen, 


6.1 DATA SUCHEN 


Sie werden feststellen, daß unter den 8 ersten zu loschenden 
Zeilen auch die Zeile 1 ist, was nichts anderes heißt, als 
daß sich der VC-20 bei der darauf folgenden "Loschaktion" die 
Nummern der nachsten zu loschenden Zeilen aus der DATA-Zeile 
2 ausliest, etc. etc. Das Resultat des eben beschriebenen 
Verfahrens sehen Sie in Bild 6.1.2. 


Zeile 170: 
Der gesuchte Begriff wird der Variablen S$ ubergeben. 


Zeile 180: Die Lange S des gesuchten Begriffs wird gepruft. 
Zeile 190: PGM beenden? 


Zeile 200: 
Die Länge S des gesuchten Begriffs wird in die Zero-Page- 


Adresse 0 geschrieben. 


Zeile 220: 
Der Suchbegriff wird in das Übergaberegister gePOKEd (Zeile 
100) und es folgt der Sprung in das M-PGM SUCHEN, 


Zeile 230: 

Das M-PGM hat den DATA-Vektor auf das Datum gerichtet, das 
den gesuchten Begriff enthalt. Wenn der Begriff nicht gefun- 
den wird, enthalten die DATA-Vektoren (#63,64 und #65,66; 
siehe Anhang A.1) die Adresse des DATA-ENDE-ZEICHENs (@). Das 
gefundene Datum wird gelesen und der Variablen SS$ ubergeben. 


Zeile 240: 

S5$ wird auf dem Bildschirm ausgegeben. Es folgt der Sprung 
in das UP fur die Ausgabe von "Weiter mit Taste". Falls nicht 
"Pfeil nach oben" eingegeben wird, geht es weiter mit dem 
Sprung in das M-PGM WEITERSUCHEN. Das gefundene Datum wird 
wiederum auf dem Bildschirm dargestellt. 


Zeile 250: 
Der gesuchte Begriff wurde nicht gefunden. Das PGM wird an 
Zeile 170 fortgesetzt. 
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6.1 


188 
124 
178 
188 
198 
208 
228 
238 
248 
258 
268 
270 
288 
2390 
300 


DATA SUCHEN 


Zeile 260: 

UP fur die Ausgabe "Weiter mit Taste"; falls man "Pfeil nach 
oben" eingibt, wird die augenblickliche DATA-Zeilennummer an- 
gezeigt und das PGM verlassen. 


REM...16 STELLEN. ..# 

A=(PEEK(4E)- 13 M255+FEEK(45) : B=A+153 
Sg="":PRINTCHR$( 1475 : PRINT :PRINT : PRINT: INPLUT"SLICHBEGRIFF"IS$ 
S=LEN(S$) : IFS<CLURS>P16THENI28 

IFS$=" 1" THENEND 

FOKEB,S 

FOR I=1T0$: POKEPEEK (44 )W256+PEEK 433 +4+1, ASCEMIDELSF. I, 129 NEXT: STSA 
READSS$: IFSS$="@" THEN2SO 

PRINT PRINT :PRINTSS$ : GUSUBZ264 : SYSR:GOTOZ3Q 

PRINT :PRINT:PRINT"NICHT «MEHR> GEFUNDEN" ' GOSUBZ68 : GÜTO178 
PRINT :PRINTCHR&(CZI>CHRELL18I "WEITER MIT TASTE"CHRECIA4E) 
BETE$: IFE$=""THENZ27O 

IFES<>" T" THENRETURN 

FRINTCHRE CL 14 ICHREC14SI "LS "PEEKCE3I +Z2ISHPEEK (64) 

POKE631, 19: POKE632, 13: POKE198, 2: END 


EARRB DATAR 


7b) 


Bild. 6,1.2 


Erlauterungen zum M-PGM (s. Bild 6.1.3): 


Teil 1 ($2000 - $2098): 

Dieser Teil des M-PGMs durchsucht die DATA-Zeilen nach dem 
vorgegebenen Begriff (SUCHEN). Der DATA-Vektor wird so einge- 
stellt, daß das gesuchte Datum mit READ gelesen und einer Va- 
riablen zugewiesen werden kann. 


Teil 2 ($2099 - $20F6): 

stellt die PGM-Vektoren so ein, daß in Teil 1 des PGMs hin- 
ter dem zuletzt gelesenem Datum nach dem vorgegebenen Begriff 
gesucht werden kann (WEITERSUCHEN). 
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zaag 
EEE 
zii 
zu 
zuad 
Zr 
zRdil 
ZUdE 
ZB 
zaiı 
zei 
2a 
zule 
zul 
zei 
zulc 
ZujE 
zu20 
Pu 
zu24 
226 
Pau PS] 
ziEA 
2e2B 
edel 
zur 
PlueTE 
zii 
eat 
20 
2a37 5TA 
239 MÜF 


Dr 
STA 
LIH 
STR 
LDr 
LO 
STA 
Ihr 
1... 
SiA 
HOF 
LOA 
STA 
LOA 
STA 
LTM 
SsTA 
[un 
STA 
L.I'r 
LA 
ST 
IHr 
LI 
STA 
IHr 
LORA 
sin 
IM'r 
LM 


Z=E 
#03 
ER 
FEd 
#rag 
FEB). Tr 
£FE 


WEER>.T 
Fü 
283 az 
zul 

zu4 
E24 
£FE 
E13 
£FL& 

+04 
#raG 
EI T 
£Fb 


EA). T 
£FÜ 
De 10E DL 
Zar 
be 1. Ep 
#4 


6.1 DATA SUCHEN 


TEIL I 
1. Basi 


[7] 
nr 
04 


2. 


Basic-Zeiile 





TNRECHSTE ZEILE 
vorige Zeile 


aktuelle Zeile 


Zei lermummer 





za3n IMV 
203B LA 
zaaD Cmr 
2UaF BNE 
2041 DET 
2042 517 
add HOP 


a3, Tr 
#433 
tzul4 


zuS 


"IATR-ZEILE SUCHEN 


LHTA-Zeile 7 





2a45 ING 
2047 LD’r 
2u49 LOK 
2u4B NOP 


zu5 
E 7a 
Here 


BEGRIFF SUCHEN 


ei Ir NRECHSTES ZEICHEN 


zu4l 
zu4r 
east 
2053 
2uss 
2usg 
2u5A 
zusp CPa oe 

eu50 BNE 24 

ZOSFNÜP u 
20654 DET 

zus LOR CET 

zuna CME HEEL 

2065 BEU F2U86 


[LA 
BEO 
EMP 
BEO 
SMF 
ENE 
IH» 


EI. T 
zzuld 
#+40 
Fzuhl 
Filed. Mn 
z2u45 


Zeilenende 
LH TR-Ende 


vergleichen 


Bearift wefunden 7 


Komma 7 


Bild 6.1.3 (Teil 1) 
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HE 
Felle 






IATa 











#Ece 


4 #3F 














El? 


Tr Zeil 


ZEIGER HACH 
Leriummer 


EAST 


“ORIGE ZEILE 


SINCHEN 


ZEIGER NACH AKTUELLE ZEILE 


} ZEILENENDE 
PASS LDR De: 15 B Br Be 3 Zeilenende 7 
za’ EHE FaRrE 
SED LIR a1 
kr Lus E 243 
PATER ERS 
ei ‚ ie 
. rg u = 

Li Feld 
LIR #63 setzt DRIA-deiser 
Sir #45 aut Kommma oder 
ei EL 
Fa Zei Lernende kl) 






Hi. 
u ZeudE 





Kl a 


dem Sesuchten Besrift 





Ey ZEIGER SETZEN 
+4 
aehnlich wie 1. Teil 
de Fehl ed INT 
LUM #eib 2A LOHR Kid 
sim zu zöLcE MP £3r 
u Lun Eee ZUER ENE FEdHl 
is STH Erd zZUCF INT 
dh MIF era LIH SE 
zemE LIT HERE el CHF Ehe 
zuHd LOHR Ei, zuid4 BHE FE 
Ars SIH EFE zeute LIR #4 
ei Ir ala MP EHE 
m DA EEE Tr Muh Bei Feen 
EMab SEA ERTL ek 
ekriHl LIH 203 zuld LOHN Wa 
SMAF STH EL zul SBL Fa 
zuBl LIM Eri4 zuEl CLC 
ua SIR Fe eREZ AI #4 
Zuikd IM ErR zieh SIA ES 
zur SIA Fk ee KIEL Eu 
2uE3 LM Erü ZUES BNE FEAHT7 
zHubn SA #4 SUEHR CL 
ZKED LIT #EKE ZuIER LÜM F4l 
ERBF LA EA REISE #83 
EL) SIH Erb ZREF STA gus 
245 IMT zdrl DE #05 
zi.4 LUR nE3T zuUF3 ENG Fair 
ich SIA FL 2KFS BEN Faa9 7 
Bild 6.1.3 (Teil 2) 
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6.2 Sortieren 


6.2 SORTIEREN 


Eine kleine Sortierroutine darf in einer PGM-Sammlung naturlich 
nicht fehlen. Wie fast alle in diesem Buch beschriebenen Program- 
me ist auch diese Sortierroutine universell einsetzbar und ermog- 
licht dem Anwender eine nur durch den Ausbau des Arbeitsspeichers 
begrenzte Anzahl von Daten zu sortieren. Gerade weil diese Routi- 
ne so universell ist, mußten einige Kompromisse eingegangen wer- 
den, $o ist die in diesem Kapitel vorgestellte Sortierroutine 
nicht die schnellste, aber dafur sehr zuverlassig. Wer selbst 
schon einmal ein Sortier-PGM geschrieben hat, kennt die Probleme, 
die immer dann auftreten, wenn es darum geht, die Dauer des Sor- 
tiervorgangs in vertretbaren Grenzen zu halten, Sollte Ihnen das 
hier vorgestellte PGM zu langsam erscheinen, so untersuchen Sie 
doch auch einmal ein anderes Soriterverfahren. Literatur uber 
Sortierprogramme gibt es reichlich und man sagt: An der Qualitat 
eines Sortier-PGMs kann man nicht nur die Leistungsfähigkeit ei- 
nes Betriebssystems ablesen, sondern auch die des Programmierers, 


BED TENUNGSHINWEISE 


Das kleine PGM-Beispiel nach Bild 6.21 liest die zu sortierenden 
Daten aus DATA-Zeilen und schreibt diese in die vorher dimensio- 
nierte Variable S$SMm. Danach folgt der Sprung in die Sortierrou- 
tine ab Zeile 3000. Nach Rückkehr aus der Sortierroutine werden 
die Daten in sortierter Reihenfolge auf dem Bildschirm ausge- 
geben. Sie brauchen in Ihrem PGM naturlich nicht jedes Datum nach 
SS) zu schreiben, sondern vielleicht nur jedes 3. oder 4, Da- 
tum, um eine Adressdatei nach Postleitzahlen oder Ortsnamen zu 
sortieren oder ähnliches. Die Daten mussen nicht in DATA-Zeilen 
stehen, Sie konnen diese auch aus einer Datei (auf Kassette oder 
Diskette) lesen und der Variablen SS) zuweisen, Das Sortieren 
in umgekehrter alphabetischer Reihenfolge ist naturlich auch mog- 
lich, dazu muß in Zeile 3000 das Zeichen > (großer) in < (klei- 
ner) geandert werden. Aber Vorsicht, das Zeichen = (gleich) darf 
nicht fortgelassen werden, andernfalls wurde sich das PGM bei 
gleichen Daten in einer Endlosschleife festfahren. 
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PROGRAMM-EINZELHEITEN 
1.) Name: 

2.) Ausbaustufe: 

3.) Art des PGMs: 


4.) Anzahl der Bytes 
des UP's:! 


in 


Benutzte Variablen: 


53 


RUl) 
SS(I) 


H 


6. 


Listing: 


N 
Nu 


Zeılen 10 - AU: 


SORTIEREN 
beliebig 


Basic-Hilfsroutine 


124 (Zeilen 3000 - 3070) 


Wırd nur benutzt, um DATA-Zeilen auszu 
lesen und die Anzahl der zu sortierenden 
Daten zu ermitteln 

Anzahl der zu sortierenden Daten 
Reıhentolge der sortierten Daten 

Daten in unsortierter Reihenfolge 
Schleıfenzahler 

Hılfsvariable 

=] !: es mußte sortiert werden 

=0 : es mußte nicht sortiert werden 


siehe Bıld 6.2.1 


Er lauterungen zum Programm; 


Im 1. Teil des PGMs wırd die Anzahl der zu sortierenden Daten 


ermittelt und der 


Variablen N ubergeben. Die RESTORE-Anwei- 


sung setzt den DATA-Vektor zuruck. 


Zeile 50: 


Die Anzahl der zu sortıerenden Elemente wird dimensioniert., 


Zeile 60: 


Die zu sortierenden Daten werden der Variablen SS(I) zugewie- 
sen, Die Variable R(I) ist der Index fur die unsortierte Rei- 


henfolge der Daten, 


Nach dem Sortiervorgang enthalt R(I) die 


sortierte Reihenfolge der Daten, 


Zeile 70: Sprung in die Sortierroutine 


212 


6.2 Sortieren 


1 S0ETIEREH 
+ 







up 


IE 
Zommumm 
a 
m 


"a" THEHHSHFLSGOTOSEG 
RE 

















aa DIMSEEHSSRCHN 
Ba Fl ":NEMT 
FE GOSLERABES FRIHT"T' 
FÜrRT=1T0 H 
ag FEIHT:FRIMTSECREISS 
IFSELRE TI H=>S$CRE I-1 9 > THEN3O5R 


Fi Asveki 5: RE Td=pe Il: RI der) 






4 RETLEH 
Ana DATA SCHLS H. MUELLER: MEIER SCHAEFER» SCHULZ A. PETERS MArER 
aa DATA @ 


Bild 6.2.1 


Zeilen 80 - 100: 
Die Daten werden in sortierter Reihenfolge auf dem Bildschirm 
ausgegeben, 


Zeile 3000; 
Die Hilfsvariable H wird 1, wenn sortiert wurde, 


Zeile 3010: 

In dieser FOR-NEXT-Schleife werden die zu sortierenden Daten 
miteinander verglichen. Es wird immer das 2, mit dem 1. Ele- 
ment, das 3. mit dem 2. Element usw. bis zum N. Element ver- 
glichen. 


Zeile 3020: 

Wenn z.B. das 2, Element großer als das 1. Element (I-1) ist, 
dann sind die beiden Elemente schon in der richtigen Reihen- 
folge angeordnet und es erfolgt der Sprung in Zeile 3050, 
Wenn nicht, dann werden die Zeilen 3030 und 3040 abgearbei- 
tet, 
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Zeile 3030: 

Der eigentliche Sortıervorgang besteht darin, daß der Index 
fur die Reihenfolge der beiden soeben verglichenen Elemente 
vertauscht wird. R(0) dient dabei nur als Zwischenspeicher 
fur R(I). Dieses Sortierverfahren nennt man Bubble-Sort. 


Zeile 3040: 
Die Hilfsvariable H wird "gesetzt" und ist ein Flag dafur, 
daß sortiert werden mußte, 


Zeile 3050: 
NEXT: die nachsten beiden Elemente miteinander vergleichen 


Zeile 3060: 

Die Zeilen 3000 his 3050 mussen so lange durchlaufen werden, 
bis H nicht mehr gesetzt wird. Erst dann ist der Sortiervor- 
gang beendet und R(I) enthalt jetzt die sortierte Reihenfolge 
der Daten, 


Zeile 3070: 
Rucksprung in das Hauptprogramm 


Zeilen 10000 - ...: 

Unsortierte Daten in DATA-Zeilen. Das letzte Datum muß "@'" 
sein, oder das PGM steigt mit der Fehlermeldung "? OUT OF 
DATA ERROR" aus. 


6.3 LÖSUNG DES PORTABILITÄTS-PROBLEMS 


Es mußte leider einen popularen Heimcomputer, wie es ja der VC-20 
ohne Zweifel ist, treffen: sein Benutzer legt sich anfangs, wenn 
er sich mit der Grundversion zufrieden gibt, alle moglichen scho- 
nen Programme zu und ist plotzlich arg enttäuscht oder verblufft 
(je nach Stimmungslage), wenn diese ja so gut funktionierenden 
Programme nur noch Mist verursachen, nachdem eine Speichererwei- 
terung in den VC-20 hineingesteckt worden ist, 


Diese Tatsache ist schon so lange bekannt, wie es den VC-20 auf 
dem Markt gibt. Leider hat der Hersteller in keinster Weise fur 
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eine fur den Benutzer einfach gelöste Umschaltemoglichkeit ge- 
sorgt, noch druckt er ihm von Anfang an ausreichende Informatio- 
nen in die Hand, 


Dieser Effekt, daß namlich VC-20-Programme auf dem einen Rechner 
laufen und auf dem anderen nicht, ist als Portabilitats-Problem 
allgemein bekannt geworden. Er tritt deswegen auf, weil der 
Adreßraum fur Video- und Farbspeicher (s. Anhang A.2) fur unter- 
schiedliche Speicherausbaustufen ebenfalls anders ist. Programme, 
die mithilfe PEEK- und POKE-Befehlen, oder auch per Maschinen- 
sprache, raffiniertere Moglichkeiten aus dem VC-20 herausholen 
wollen, konnen verstandlicherweise solche Anderungen von sich aus 
und von selbst nicht mitvollziehen. Abhilfe schafft hierbei na- 
turlich die "Hau-Ruck"-Methode, indem man einfach die fur das je- 
weılige Programm notwendige Speichererweiterung hineinsteckt bzw, 
herauszieht oder ein- bzw. ausschaltet, Letzteres ist noch gerade 
zumutbar, ersteres jedoch recht umstandlich und erhoht den Ver- 
schleiß fur sowohl den Expansion-Port als auch die Speichererwei- 
terung, 


Eine weitere Moglichkeit, den VC-20 ın die fur die jeweilig not- 
wendige Speicherausbaustufe "umzuschalten" ist die softwaremaßi- 
ge, Bezuglich des Portabilitats-Problems reicht es aus, 3 Typen 
von Speicherausbaustufen zu unterscheiden: 


Grundversıon (GV) 

- JK-Version (3K-V), also ein um eınen 3 KByte-Zusatzspeicher 
(Adreßraum SOAUN-UFFF) erweiterten VC-20 

- Ausbauversion (AV), mit einem Zusatzspeicher von >= 8 KByte 


1A) UMSCHALTUNG: AV --> GV oder J3K-V -——-)> GV 
In diesem Fall geben Sıe ım Direkt -Modus hintereinarder ein: 

POKE 642 ,16:POKE 781,0: SYS 64970:5YS 64818 (Return) 
Auf dem Bildschirm wird das gewohnte Einstiegsbild angezeigt, al- 
lerdings mit der Meldung: "3583 BYTES FREE", Dem VC-20 haben wir 
also somit vorgegaukelt, daß er nicht die geringste Speicherer- 
weiterung aufweist. Diese ist naturlich nach wie vor uber POKE- 


und PEEK-Befehle erreichbar, auch konnen wie gewohnt dort M-PGMe 
abgelegt und zusat.zlıch benutzt werden. 
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2A) UMSCHALTUNG: AV -> 3K-V 


Dies ist nur sinnvoll, wenn tatsachlich im Adreßbereich $0400- 
OFFF RAM vorhanden ist, Folgendes wird eingegeben: 


POKE 781,0:POKE 782,4:5Y5 65162:5YS 64970:5YS 64818 (Return) 


Das gewohnte Einstiegsbild wird wieder auf den Bildschirm ge- 
bracht, hier mit der Meldung: "6655 BYTES FREE". Dies geschieht 
auch dann, wenn Sie in Wirklichkeit keinen 3 KByte-Zusatzspeicher 
an den VC-20 angeschlossen haben. 


3A) UMSCHALTUNG: GV --> AV oder J3K-V --> AV 


Sie haben richtig gelesen, es ist kein Irrtum. Im ersten Moment 
stutzt man naturlich und fragt sich, ob es denn uber eine bloße 
Umschaltung moglich ist, ein nicht ausgebautes in ein ausgebautes 
Gerät umzuwandeln. Das wird selbstverstandlich in keinster Weise 
gemacht. Nur, manche Programme laufen halt nur dann, wenn der Vi- 
deo-Speicher im Bereich $1000-1FF9 und der Farbspeicher im Be- 
reich $9400-95F9 liegt. Diese Verteilung entspricht derjenigen 
der AV. Eine Umschaltung ist also auch dann erforderlich, werın 
das Programm zwar nur hochstens 3583 Bytes umfassen darf, jedoch 
die Speicherverteilung gemaß AV benotigt. Hierzu ist folgende 
Eingabe erforderlich: 


POKE 781,0:POKE 782,32:5YS 64978:5YS 64818 (Return) 


Die 3 oben besprochenen Umschaltungen sind verhaltnismaßig unauf- 
wendig und konnen schnell vor dem Programm eingegeben werden, wo- 
rauf sich die entsprechende Umschaltung bezieht. Auch konnen Sie 
mit einer Zeilennummer versehen werden und als eigenständiges 
Programm gewissermaßen als Vorspann-Programm vor dem eigentlichen 
Programm auf Kassette stehen, 


Manche Programmierer wollen jedoch solche Umschaltungen nicht 
über Basic, sondern per Aufruf entsprechender M-PGMe vornehmen, 
die darüberhinaus koppelbar mit selbst definierten Befehlen (s, 
Kap. 4.1) sein sollen. Man stelle sich nur vor, wie luxurios es 
ware, wenn Sie beispielsweise den Befehl "GV" im Direkt-Modus 
eingeben und hernach das VC-20-Einstiegsbild mit "3583 BYTES 
FREE" erhalten wurden, 
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1B) UMSCHALTUNG: AV -—> GV oder 3K-V -——-> GV 


18 REM GV 

28 REM SCHALTET DEN VC2@ IN DIE ORUNDVERSION UM 

30 L=17 

48 PRINTCHR$(147)"ABLEGEN DES M-POM:" 

5® FRINT:PRINT:PRINT"E = AM ENDE VOM BASIC-"SPCC4) "RAM-BEREICH" 

68 PRINT: PRINT :PRINT"<ZAHL> GEWUENSCHTE AN-"SPC<7)"ANFANGSADRESSE"SPCCB)" CDEZIMA 
L> vom" ' 

7@ PRINTSPC<7} "PROGRAMM" PRINT: PRINT 

88 INPUTA$:SD=YALCAS) : IFSDTHEN16@ 

98 IFASC>"E"THENA® 

180 EM=PEEK (55) +256MPEEK (56) 'AU=EM-L :ER=PEEK (643) +256WPEEK. (644) 

118 IFEM=ERTHENL3® 

12a IFPEEKCER-3><>1970RPEEKCER-2) <>2BGURPEEK SER-1ICP1I6THEN1SB 

13@ POKEEM-3, 197 :POKEEM-2, 286 : POKEEM-1, 196  AD=AD-7 : BOSLIB25@ 

148 FOKEENM-S. AL: POKEEM-4, AHR 

158 00SUB258 : POKESS, AL: POKESE6 ‚ AHX !AL=FRE (9) :SD=AD 

160 G0OSUB268 

178 FORI=SDTOSD+L-1 :READA$ 

188 IFA$<"H" THENA=VAL CAS) :GOTOZ1® 

198 IFA$>"H" THENAD=VALCRIGHTECAS, LENCASI-19) :AD=AD+SD : BOSUBZSE A=AL:GOTOZIR 
200 A=AHr 

218 POKEI,A: IFPEEKCI)=ATHENNEXT : END 

228 PRINT:PRINT:FRINT"ROM-BEREICH !":PRINT"ANDERE WAHL" PRINT"FUER ANFANGSADRESS 
E":STOP 

250 AH%=AD/236 : AL=AD-256WAHR RETURN 

268 PRINTCHREC 1475 "M-PGM-AUFRUF MIT: "PRINT 

279 PRINTCHREC 19) "SYS" SDCHREC146? : FRINT RETURN 

1808 DATA1L28,162:98,142,129,2,169,16.141,130,2, 32,202. 2%3. 76,50, 253 


Bild 6.3.1a 


Die Losung hierfur bietet das kurze M-PGM gemaß Bild 6.3.1b. Es 
ist frei verschiebbar (relocatable) und kann zum Beispiel uber 
den speziellen Basic-Loader (s. Bild 6.3.1a) aus Kap. 5.2 uber- 
allhin geladen werder, Falls Sie sich fur das RAM-Ende als Stand- 
ort dieses M-PGMs entscheiden, werden bereits existierende M-PGMe 
nicht angetastet und es wird außerdem der Basic-RAM-Ende-Vektor 
neu ausgerichtet. 


SEI 

LDX #500 
STX $0281 
LDA #910 
STA $0282 
JSR S$FDCA 
JMP $FD32 


Bild 6.3.1b 
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6. 


3 Losung des Portabilitats-Problems 


2B) UMSCHALTUNG: AV -> 3K-V 


Es gelten sinngemaß die gleichen Ausfuhrungen wie unter 1B. Die 
analogen Listings entnehmen Sie den Bildern 6.3.2a sowie 6.3.2b. 


REM 3K-V 

REM SCHALTET DEN YC28 IN DIE 3K-BrTE-VERSION LM 

L=14 

PRINTCHR$(147> "ABLEGEN DES M-PGM:" 

PRINT :PRINT:FRINT"E = AM ENDE WOM BASIC-"SPL(4)"RAM-BEREICH" 

PRINT 'PRINT:PRINT" ZAHL) GEUUENSCHTE AN=-"SPL«C7>"ANFANBSADRESSE"SPC(8)" CDEZIMA 
won“ 

PRINTSPC (7) "PROGRAMM" PRINT PRINT 

INPUTA$ :SD=YAL<A$) : IFSUTHENIEO 

IFA$<>"E" THENAO 


104 EM=PEEK(SSP+Z2SI6HFEEK (56) AD=EN-L 'ER=PEEK (643) +256HPEEK (644) 
11@ IFEM=ERTHEN13O 

128 IFPEEK(CER-3><>197URPEEK (ER-2) CH 20EURPEEKGER-1I<CD1I6THEN1SO 
138 POKEEM-3, 197: FOKEEM-2, 286 : POKEEM-1 , 196 : AD=AD-7 '005UB258 

148 POKEEM-5, AL: POKEEM-4 , AH% 

1580 GOSUBZ250 'PÜUKESS., AL : POKESE, AHR 'AL=FRE (9) : SD=HD 

168 GOSUB260 

178 FORI=SDTUSD+L-1 :READA$S 

188 IFA$<"H"THENA=VAL CAS): GOTOZ1E 

19@ IFA$>"H"THENAD=VALCRIGHTECAS,LENSASI-1)) AD=AD+SD : BOSUB2IR  A=AL 'GOTO218 
200 A=AHr 

218 FOKEI,A: IFPEEK“TI>=ATHENNEXT ENI 

250 AHK=AD/256  AL=AD-2I6WAHR RETURN 

268 FRINTCHR$( 1475 "M-POM-AUFRUF MIT: "PRINT 


278 PRINTCHRE(18) "SYS" SDCHREC146) : PRINT 'RETLIRN 
1808 TATA128, 162,0, 160,4,32, 138,254, 32, 202, 253, 76. 50,253 








Bild 6.3.2a 


SEI 

LDX #500 

LDY #504 

JSR SFE8A 
JSR $FDCA 
JMP $FD32 


Bild 6.3.2b 


3B) UMSCHALTUNG: GV --> AV oder 3K-V --> AV 


Es gelten sinngemaß die gleichen Ausfuhrungen wie unter 1B, Die 
analogen Listings entnehmen Sie den Bildern 6.3.3a sowie 6.3.3b. 
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18 REM GV CöK-V> 
2@ REM SCHALTET DEN vC28 IN DIE >=8K-BYTE-VERSIUN UM 

30 Le11 

48 PRINTCHR$(147) "ABLEGEN DES M-POM:" 

58 PRINT:PRINT:PRINT"E = AM ENDE VOM BASIC-"SPC(4) "RAM-BEREICH" 

60 PRINT: PRINT :PRINT"CZAHL> GEWUENSCHTE AN-"SPLX73 "ANFANGSADRESSE"SPLCB)" CDEZIMA 
L> vom" 

78 PRINTSPCC73 "PROGRAMM": PRINT :PRINT 

88 INPUTRA$: SD=YAL CAS): IFSDTHENISQ 

98 IFRS<>H"E"THEN4O 

188 EM=PEEK (33) +256WFEEK (56) : AD=EM-L 'ER=FEEK. 643) +256HPEEK (644) 

1168 IFEM=-ERTHEN138 

128 IFPEEKTER-3) <> 1F70ORPEEK(ER-2I <>2USNORPEEKCER-1 ICH LIETHEN1SQ 

138 POKEEM-3. 197: FOKEEM-2. 286 : POKEEM-1. 196 :All=AU-7 : G0OS1UB250 

148 POKEEM-S, AL: POKEEM-4, AH% 

158 G0OSUB258 : POKESS. AL : POKESS , AH% :AL=FRE (9) 'SD=-AND 

168 GOSUB268 

178 FORI=SDTOSD+L-1  READAS$ 

188 IFA$C"H" THENA=YALCAS) :GOTO21@ 

138 IFA$>"H" THENAD=YALCRIUHTSCHE. LENAFI-19)  AD=AD+SI  GOSUB2SQ  A=fL'GOTO21®8 

za8 A=AHA 

218 POKEI,R: IFFEEKCII=ÄATHENNEXT END 

250 AHA=AD/2SE : AL=AU-256HAHR RETURN 

268 PRINTCHR$( 1473 "M-POM-AUFRUF MIT: " PRINT 

78 PRINTCHR$(18>3 "SYS"SICHR$« 146) : PRINT RETURN 
1088 DATA128,162,8,160,32.32,219.253,76,50,2 


Bild 6.3.J3a 






SEI 

LDX #500 
LDY #520 
JSR $FDD2 
JMP S$FD32 


Bild 6.3.3b 


6.4 SEITENSPRUNG 


Die Tabelle A.5.6 in Anhang A,5 gibt daruber Aufschluß, wie das 
"Fenster", durch das man in den VC-20 hineinschaut, in 8 mogli- 
chen Fallen "versetzt" werden kann. Da jedes dieser Fenster einen 
der 8 VC-20-Speicherbereiche von je 506 Bytes (genau genommen 
sind es 512, die letzten 6 jedoch sind nicht von vornherein 
sichtbar) durch den Bildschirm hindurch dem Benutzer visuell zu- 
ganglich macht, stoßt man auf die Frage, ob es denn nicht moglich 
ist, mit "umschaltbarem" Bildschirm alle diese 8 Speicherbereiche 
zur gleichen Zeit zu benutzen, 
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"Seitensprung" haben wir dieses Umschalten des Bildschirms auf 
jeden beliebigen dieser 8 Speicherbereiche genannt. Per Druck auf 
die Funktionstaste werden die Video-Speicherbereiche gemaß Bild 
6.4.1 sichtbar gemacht. Allerdings muß hierbei vorausgesetzt wer- 
den, daß Sie mindestens eine 3KByte- oder eine 8KByte-Speicherer- 
weiterung an Ihren VC-20 angeschlossen haben. 


F1: $1000-11F9  F3: $1400-15F9 F5: $1800-19F9 F7: $1C00-1DF9 
F2: $1200-13F9  F4: $1600-17F9 F6: $1A00-1BF9 F8: $1E0O0-1FF9 


Bild 6.4.1 


Da von vornherein jedoch der Basic-Anfang in der VC-20-Ausbauver- 
sion (=8KByte Erweiterung) bei $1200 liegt, muß der Basic-Ar- 
beitsspeicherbereich außerhalb aller in Bild 6.4.1 aufgefuhrten 
Bereiche installiert werden. Wie dies gemacht wird, haben wir im 
Kapitel 2.1 gelernt, Wenn wir den Basic-Arbeitsspeicher unmittel- 
bar auf die 8 Seiten-Speicher folgen lassen wollen, also ab 
52000=#8192, geben wir im Direkt-Modus ein: 


POKE 44,32:POKE 8192,0:NEW (Return) . 


Beim VC-20 in der 3K-Version fangt der Basic-Arbeitsspeicher zwar 
schon bei $0400 an, ragt jedoch in die Seiten-Speicherbereiche 
hinein, so daß er oben "abgeschnitten" werden muß mit! 


POKE 56,16:CLR (Return) 


BEDTENUNGSHINWEISE 


Das Programm SEITENSPRUNG 1 (s. Bild 6.4.2) wird nach der Ver- 
schiebung des Arbeitsspeichers normal mit LOAD geladen und her- 
nach mit RUN gestartet. Nach einer kurzen Pause tut sich einiges 
auf dem Bildschirm. Sie konnen beobachten, daß nacheinander die 
Seiten-Speicher samtlich mit den Zahlen 1 bis 8 gefüllt werden. 
Wenn dieser Prozeß abgeschlossen ist, betätigen Sie die Funk- 
tionstasten und sehen anhand der Zahlen auf dem Bildschirm, in 
welcher Seite Sie sich gerade befinden. 
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e REM SEITENSPRUNG 1 

1a FORI=BTO1E23: FÜKESTSBE+L.5 NEXT 

2a FÜRBF=ATLT 

30 GOSLIBIAGE 

42 FORI=ATUSRS  PÜKRERD+L.43+BF NEXT 

Se NEXT ts 
58 WALTIFS,T GETE$ em 

Fe H=eASCtEF>-133: IFHSÄNRH>TFTHENGE 

58 BF=H#2- HAHN 

58 5OEUB1BBE:G0TOEG 

1aadı FOKEB4S. 2#Br+1t  AU=FEEK EIS MEITE 

1e12a FÜKEISBEE, CPEERKISSEEPANILEFI+ELBFANDI EISEN 
1a20 FÜRZSEBER, FEERN SESSFTIANDL SPORT CEPANDEIRSHLFE) 
12 RETURM 


Bild 6,4,2 


Naturlich hat dieses Programm mehr Demonstrationscharakter als 
Nutzwert. Anders sıeht es jedoch beı SEITENSPRUNG 2 aus (s. Bild 
(ERR. e D 


A REM SELTENSFRUNG 2 

1a DIMLIRC?.23 

2a FOREP=ATUT 

3a GOSLEIERR 

42 PRINTCHREL147 3" WIDEU-SPEICHER" S BP+1 
sa GLSLIBSAGR 

50 NEXT !BP=7 

? SUB 

BA HeASLKEFI-133: IFHLAURHSPTHEN FA 

3a GASURZEMR 

1aA BPaHHE-CHAND4 IHR? 

119 GOSLUIBSRIE 

129 GASUBLARA:GUTLEA 

jaad PORERIB, Z4EP+1M: FÜKEZ1U.FEEK Ed: 
1a1a PÜKEIKBSE : KPEEK BHAsE ANILEFDHL BRAND IRLE 
1aza POKE3EH6S, CPEER KL ABBEFIAHILS OL BEHNDEIME+FLIE) 
1039 FRINTCHRECLFP RETURN 
zana GETEF TFEF="" THEHZERK 
zaıa FRINTEF: [FFEERÜLIEI=ZRTHENHFÜKELIH IR 
za2A RETURN 





agıa FÜRI=ATIES: FÜKEZIFHIT SLIM BP. 13 NEMT RETURN 


Bild 6.4.3 
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Nachdem Sie dieses in der gleichen Weise wie letzteres zum Laufen 
gebracht haben, sehen Sie anstatt lauter Zahlen nur das Wort 
"VIDEO-SPEICHER" und die Seiternummer in der 1. Zeile des Bild- 
schirms. Wieder konnen Sie per Betatigung der Funktionstasten be- 
liebig zwischen den Video-Speichern hin und her schalten. Zusatz- 
lich ist es jedoch moglich, die einzelnen Seiten nach Belieben 
vollzuschreiben. 


Mit SEITENSPRUNG 2 erhalten Sie somit ein Werkzeug, welches Sie 


in denjenigen Programmen einsetzen konnen, bei denen Sie simultan 
bis zu 8 verschiedene "Seiten" bearbeiten wollen. 


PROGRAMM-EINZELHEITEN 


1.) Name: SEITENSPRUNG 1 und 2 
2.) Ausbaustufe: alle Versionen außer GV 
3.) Art des PGMs: Hilfsprogramm 
4.) Anzahl der Bytes 
SEITENSPRUNG 1 : 300 
SEITENSPRUNG 2 ; 451 
5.) Benutzte Variablen: 
BP Bildschirm-Page (0,..7) 
AD Anfangsadresse des momentanen Video-Spei- 
chers 
H ASCII-Code der Funktionstaste abzql. 133 
ES Eingegebene Funktionstaste 
T Schleifenzahler 
6.) Listings 
SEITENSPRUNG 1 : Bild 6.4.2 
SEITENSPRUNG 2 : Bild 6.4.3 


7a 


Bw 


Erläuterungen zu SEITENSPRUNG 1: 
Zeilen 10 - 50: Initialisierung 


Samtliche Farbspeicherzellen bekommen die Farbe "BLAU" (In- 
halt=6) zugewiesen, sonst bleiben namlich die meisten Zahlen 
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unsichtbar. In den Zeilen 20 und 30 wird nacheinander jeder 
der Video-Speicher eingeschaltet. In Zeile 40 wird in jede 
Speicherzelle des Video-Speichers die Seitennummer hineinge- 
POKEd. 


Zeilen 60 - 90: Furıkt ionstastenabfrage 

In Zeile 60 wird ermittelt, daß eine Taste gedruckt wurde. In 
Zeile 70 wird gepruft, ob es sich dabei wirklich um eine 
Funktionstaste handelt. Die Formel in Zeile 80 rechnet den um 
133 verminderten ASCII-Code der Funktionstaste (Variable H) 
in die korrelierende Bildschirm-Page-Nummer um, 


Zeilen 1000 - 1030: Video-Speicher-Umschaltung 

Die hier aufgefuhrten Anweisungen basieren auf den in Tabelle 
A.5.6 zusammengestellten Werten fur die Speicherzellen #648, 
#36866 sowie #36869. 


7b 


_ 


Erlauterungen zu SEITENSPRUNG 2: 


Die Ahnlichkeit zu SEITENSPRUNG 2 werden Sie bereits erkannt 
haben. Folgendes kommt noch hinzu! 


Bevor in eine andere Bildschirm-Page umgeschaltet wird, wird 
die in den Zellen #217-240 gespeicherte Zeilenverkettungs-Ta- 
belle in das Feld LI gerettet (UP 3000) und vor Beschreiben 
des SeitenSpeichers aus LI ausgelesen (UP 3010), 


In Zeile 2010 wird das Bildschirm-Scrolling dadurch verhin- 
dert, daß die Cursor-Zeilenposition (Zelle #214) um 4 Zeilen 
nach oben hin verandert wird (denn eine logisch zusammenhan- 
gende Zeile kann aus 4 Bildschirmzeilen bestehen), 


6.5 AUTOSTART FÜR BASIC- UND MODULPROGRAMME 


Viele von Ihnen werden sicherlich schon eine Reihe von den VC-20- 
Modulspielen - so heißen diese ja wohl im VC-20-Programmierer- 
Jargon - besitzen. Ob Sie diese nun als "Cartridge" zum Hinein- 
stecken in den Expansion-Port oder aber als Kassette, Diskette 
etc, prasent haben, sie alle haben eine Eigenschaft gemeinsam: 
sie starten sich nach Einschalten bzw. Drucken der RESET-Taste 
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(s. Anhang A.2) bzw. Eingabe von SYS 64802 alle von selbst. Warum 
das so ist, wird im 2. Teil dieses Kapitels besprochen. 


1. AUTOSTART FÜR BASIC-PROGRAMME 


Es wird sich allerdings so mancher Leser gefragt haben: "Gibt's 
denn so etwas auch fur Basic-Programme?" Die Antwort kann mit 
"Ja" beantwortet werden. Das im folgenden vorgestellte Programm 
"BASIC-AUTOSTART" macht dies moglich, indem es .einen "praparier- 
ten" Vorspann erzeugt, der vor das eigentliche Programm abgespei- 
chert werden muß, welches Sie automatisch starten lassen wollen, 


BEDIENUNGSHINWEISE 


Nachdem "BASIC-AUTOSTART" mittels der üblichen Lademethoden gela- 
den wurde, wird es mit RUN gestartet. Ziel ist es jetzt, ein Vor- 
programm zu dem eigentlichen spater abzuSAVEnden PGM zu erzeugen 
und auf Band abzuspeichern. Dies geschieht so: 


a) Erst wird hintereinander eingegeben: 
POKE 44,3:POKE 45,94:POKE 46,3:CLR:A=4614 (Return) 


Der Wert A=4614 gilt für die AV (samtliche Speicherausbauver- 
sionen >= 8 KByte). Fur GV gilt A=4102 und fur J3K-V gilt 
A=1030. 


b) Dann wırd die Schleife eingegeben! 
FOR I=0 TO 12:AS=AS+CHRS(PEEK(A+I)):NEXT (Return) 


c) Zum Abschluß (allerdings erst das Band auf gewunschte Posi- 
tion bringen): 
POKE 770,81:POKE 771,3:SAVE" (ein aus genau 16 Stellen beste- 
hender Name)"+A$,1,1 (Return) 
Es wird jetzt "PRESS RECORD & PLAY ON TAPE" erscheinen und 
Sie befolgen diese Anweisung, verfolgen das weitere Geschehen 
auf dem Bildschirm. Denn sobald danach: 


READY, 
LOAD 
SEARCHING 


erscheint, schalten Sie sofort die Datassette ab. 
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d) Nachdem Sie per AUS/EINschalten oder Drucken auf RESET alles 
in den Ausgangszustand versetzt haben, laden Sie, wie ge- 


wohnt, Ihr eingentliches Basic-PGM, das Sie mittels dem eben 
generierten Vorprogramm beim zukunftigen Laden aller beiden 
Programme automatisch starten lassen mochten. 


10 
20 R IN ZEILE 10 "BEFINDET SICH DNS AUTOSTART-MPGM 

Sc FORT=OTO1L2  RENDA TOKEPEEKCHSPH+ZSSHPEER (44 )+5+ 1, A NEST 

4 FRINTCHR$<147Y"DIE FöM DIENT ZUR ERZEUGUNG EINES AUTO- START-VORPROGEAMMS 
SK PRINT 'FRINT"DIESES VORPROGREAMM ISTUNIVERSELL FÜER ERSIC-PFGM Aurf DATASSE ” 
Cc4) 

8 FRINT"LIHTETILAR, " TRINHT:FRINT PRINTIHRFLISIP TASTE" 

ao SETTME ID" THENTO 

So FRINTCHREKAFTI"HICR DIE "CHREX1S>" SIWE-REGEL"CHRECI4EH" 

So PRIHT PRINT"EINGELEN FOKE+4,S: FOKE45, 24 PORE4S,5 CLR Aedsla "CHRFe LG RETURN 














18 PRINTCHTE14EH' STUIER SY A=41a2, SE A=1cadı “ 








ild FRINT FRINT"FURi=OTO12 Mit AIErT HRF SPEER CA+T >. NEAT "CHRECLSP "RETLRH" 
120 PRINT"'FOKETTO,31 FOKETTI. 3 hd HRS: 34 "DENN 16 STELLEN”; 

138 FRIMTEHRESSHS HAT LS 1 SCHREL RETUFN" 

140 FRIHT FREIHT"HENH SANACH "CHR 155" SEARCHING"CHRFK1A4GI" ERSCHEINT" 
1,58 FEINT REKORDER AB-ScCHnLTEN. 

‚59 FRINMT" RESET -TNITTE DRUECKEH B2 WM. SERRET ABSCHALTEN." 

173 FRINT" NEUES Po LANEH LIND MürMm. SMWEM' 

wg DATMIE,DIS228, 169, 121,141,119, 8, 230, 198,76, 131,196 


Bild 6.5.1 


Warum funktioniert dies nun? 


In a) wird der Basic-Anfang-Vektor (Adressen $002B,002C = #43,44) 
auf die Speicherzelle $0301 = #769 "verbogen", denn wenn die Zel- 
le #44 den Wert 3 erhalt, ‘die Zelle #43 ohnehin schon 1 enthalt, 
so ergibt sich als Zieladresse dieses Vektors: 3%256+1 = #769. 
Außerdem wird der Variablen-Anfang-Vektor (Adressen $002D,002E = 
#45,46) auf die Speicherzelle $035E = #862 gelegt. 


Wurde man jetzt die Funktion "SAVE" benutzen, so wurden die In- 
halte der Zellen #769-861 auf Band gespeichert werden, weil der 
VC-20 immer "stur" alles zwischen Basic-Anfang (incl. 1. Spei- 
cherzelle) und Variablen-Anfang (excl. 1. Speicherzelle) abspei- 
chert., 


In b) wird die Stringvariable A$ aus den 13 M-PGM-Bytes der 1. 
REM-Zeile des Basic-Loaders erzeugt. Testen Sie selbst, daß A$ 
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wirklich aus 13 Bytes besteht, indem Sie PRINT LEN(A$) eingeben 
und RESTURN drucken. 


Die eigentliche Pointe des ganzen in diesem Kapitel beschriebenen 
Verfahrens - woanders sonst als am Schluß konnte sie auch sein - 
geschieht schließlich in c’% 


Die drei in c) stehenden Anweisungen mussen unbedingt hinterei- 
nander eingegeben werden. Denn: mit POKE 770,81 und POKE 771,3 
wird der Basic-Eingabe-Warteschleife-Vektor verändert und zeigt 
jetzt auf die Adresse 50351 = #849 (= 81 + 3%256). Wenn nach die- 
ser "Verbiegurng" des Vektors RETURN gedruckt wurde, gäbe es einen 
VC-20-Absturz, weil der Vektor nicht mehr zur sonst benutzten Ba- 
sic-Eingabe-Warteschleite zeigt, sondern ins Nichts (ab $0351 
gibt es ja noch kein vernunftiges M-PGM), 


Dafur, daß der Vektor $0302,0303 nicht mehr ins Leere zeigt, 
sorgt der dritte Befehl SAVE"(16 Zeichen)"+A$,1,1. Dieser Befehl 
macht folgendes: 


Zuerst werden die unbedingt genau 16 Zeichen (auch Steuerzeichen 
wie CLEAR-Taste oder Farbanweisung CTRL- + GRN-Taste gelten als 1 
Zeichen) mit dem String AS verbunden, der aus dem M-PGM besteht. 
Die aus "(16 Zeichen)" und A$ bestehende String-Kombination wird 
mittels Befehl SAVE zuerst in den Kassettenpuffer ab 50341 = #833 
gelegt und auf Band aufgezeichnet, so daß das einzuspringende M- 
PGM tatsächlich (zahlen Sie es nach !) ab $0351 = #849 beginnt. 


Nicht zu vergessen sind die Kassettenpuffer-Zellen $033C-0340 
bzw. #828-832, welche bei Ausfuhrung von SAVE und, wenn alles 
fertig ist, von LOAD die Werte beinhalten: 


Adresse ($): 033C 033D O33E OD33F 0340 
Inhalt ($): 03 01 03 SE 03 


Die Paare $033D,033E sowie SO33F,0340 enthalten immer die Kopien 
der Paare $002B,002C bzw. $002D,020E, also Basic-Anfang und Va- 
riablen-Anfang = Basic-Ende abzuglich 1 Byte, 


Das Byte in $033C (s. Kap. 3.2 "Tape-Header”) jedoch entscheidet, 


ob der Autostart funktioniert. Es erhalt den Wert 03, welcher 
ebenfalls auf Band aufgezeichnet wird, wenn hinter dem Namen nach 
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SAVE noch - wie oben gezeigt - zusätzlich "1,1" eingegeben wird. 
wird beim zukunftigen LOAD dieser Wert 03 eingelesen, so heißt 
das fur das VC-20-Betriebssystem: das nach dem Header folgende 
PGM soll genau in den Bereich geladen werden, der durch die Zei- 
ger $033D-0340 angegeben ist, 


Was geschieht also bei LOAD, wenn alles korrekt auf Band aufge- 
zeichnet ist? Das Betriebssystem liest zuerst den Header des vor- 
hın abgeSAVEten PGMs ein, und mit ihm ja auch das M-PGM. Außer- 
dem erhalt es mittels 03 in $S033C die Information, daß das nach 
dem Header folgende PGM genau in den Bereich zwischen 0301 und 
035D (einschl.) abzuspeichern ist (dabei wird der M-PGM-Speicher- 
bereich sogar nochmals mit gleichem Inhalt "uberschrieben”), was 
dann auch geschieht. 


nach READY-Ausgabe: 


! 


v 
SC48U 

! 

! Vektor holen 

v 

50302 ,0303 
(Vektor zu $C483) 

! 

! 

v 
5C483 

! 

v 


Bild 6.5.2a: Normaler Einsprung in die Basic-Eingabe- 
Warteschleife 


Der Basic-Eingabe-Warteschleife-Vektor wurde aber durch diesen 
Ladevorgang in der gewünschten Weise geandert, so daß nach Been- 
digung des Ladevorgangs erst die "Umleitung" (s. Bild 6.5.2a und 
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2b) uber das M-PGM durchlaufen wird, 
Tastaturpuffer (s. Beschreibung ın 7b in den "Programm-Einzelhei- 


ten”) mit der Tastenkombinatiorı SHIFT + RUN/STOP als Reprasentant 
der Funktion LOAD + anschließendem RUN gefullt. Nach Ruckkehr zur 
Basic-Eingabe-Warteschleife bleibt dem VC-20 dann wohl nichts an- 


deres mehr ubrig, als LOAD + RUN = Autostart auszufuhren. 


nach READY-Ausgabe: 


Bild 6.5.2b: 


50302 ,0303 
(Vektor zu $0351) ------—----) 
! 
v 
M-PGM 
50351 


Umgeleiteter Einsprung in die Basic-Eingabe- 
Warteschleife 
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Angemerkt sei hierbei die wichtigste Tatsaache, daß bei LOAD mit 
erkanntem Wert 03 fur S033C zwar ein PGM genau in den zwischen 
eingelesenem Basic-Anfang und Variablen-Anfang definierten Spei- 
cherbereich abgelegt wird, der Basic-Anfang-Vektor in $002B,002C 
bzw. #43,44 in keinster Weise verandert wird (der Variablen-An- 
fang-Vektor allerdings schon, was aber nichts ausmacht). Dies ist 
auch der Grund dafur, daß das eigentlich einzuLOADene PGM gleich 
richtig ab normalen Basic-Anfang abgelegt wird (und nicht ab 
50301). 


Der Zweck eines Autostart-PGMs liegt nicht nur darin, daß man so 
manche VC-20-Benutzer verbluffen kann, sondern daß sich damit 
eine weitere Kopierschutzmoglichkeit (s. Kap. 6.8 "Software- 
schutz") auftut. Denn ist das PGM erst einmal angelaufen, so gibt 
es die mannigfaltigsten Moglichkeiten, in diesem PGM es selbst so 
zu verandern, daß ein abSAVEn nach PGM-Beendigung keinen Sinn 
mehr ergibt. 


PROGRAMM-EINZELHEITEN 


1.) Name: BASIC-AUTOSTART 
2.) Ausbaustufe: beliebig 
3.) Art des PGMs: Basic-Loader 
4,) Anzahl der Bytes 
des Basic-Loaders: 876 
des M-PGMs: 13 
5,) Benutzte Variablen: 
I Laufvariable 
AS Eingegebenes Zeichen 
A Hilfsvariable 
6.) Listings 
des Basic-Loaders: Bild 6.5.1 
des M-PGMs: Bild 6.5.3 
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Zeile 
(1) JSR SE45B 
(2) LDA #583 
(3) STA 50277 
(4) INC $C6 
(5) JMP $C483 


Bild 6.5.3 


7a) Erlauterungen zum Basic-Loader: 


7b 


—_ 


Zeilen 10 - 30: 
In dieser REM-Zeile wird das eigentliche M-PGM mittels Zeile 
30 generiert. 


Zeilen 40 - 170: 
Ausgabe der Gebrauchsanweisung dieses PGMs 


Zeile 180: 
Diese DATA-Zeıle enthalt die 13 M-PGM-Bytes in DEZ-Code. 


Erlauterungen zum M-PGM: 


Dae M-PGM besteht aus 13 Bytes und wird abgelegt in dem 
Bereich: 


50406-0412 bzw. #1030-1042 fur 3K-V 
S1006-1012 bzw. #4102-4114 fur GV 
$1206-1212 bzw. #4614-4626 fur AV 


Bei korrekter Befolgung der Gebrauchsanweisung gelangt es fur 
alle 3 VC-20-Speicherausbauversionen in den Bereich $0351- 
036D bzw, #849-861 innerhalb des Kassettenpuffers, Zwar konn- 
te es auch ab Adresse $0341=#833 gespeichert werden, wurde 
aber beim Laden unleserliche Graphik-Zeichen ausgeben. Die 
Adressen 50341-0350 = 16 Bytes werden sinnvoller fur einer 
auszugebenden Namen ausgenutzt, der beim Laden automatisch 
zusammen mit "FOUND" ausgegeben wird. Das M-PGM wird ab $0351 
gespeichert, weil bei "FOUND" ohnehin nur 16 Bytes des Namens 
wiedergegeben werden (s. Kopierschutz im Kap. 6.8). 
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Zeile (1): 
Es wird eine Betriebssystemroutine aufgerufen, welche die Ba- 


sic-Interpreter-Vektoren wie nach Einschalten oder RESET ini- 
tialisiert. Zwar ist die Wiederherstellung nur vom Vektor in 
$0302,0303 zur Basic-Eingabe-Warteschleife notig, aber dieses 
ja schon vorhandene M-UP aufzuruten verbraucht nur 3 Bytes. 


Zeilen (2)-(4): 

In die 1. Tastaturpufferspeicherzelle wird $83 = #131 gelegt 
und der Tastaturpufferzahler ($00C6) um 1 erhoht, was dem 
gleichzeitigen Drucken der SHIFT- und RUN/STOP-Tasten ent- 
spricht, d.h. es wird somit dem VC-20 vorgegaukelt, daß der 
Benutzer diese beiden Tasten gedruckt hat und die Funktion 
"LOAD" mit darauffolgendem "RUN" wunscht., 


Zeile (5): 
Jetzt wird in die Basic-Eingabe-Warteschleife gesprungen, die 
ja regular sofort angesprungen wird, wenn der Vektor 


$50302,0303 wunverandert bleibt. In dieser Warteschleife wird 
folgerichtig erkannt, daß im Tastaturpuffer ein Zeichen auf 
Abarbeitung wartet. Die Folge ist: "SEARCHING", "FOUND ..."”, 
"LOADING" etc, 


2. AUTOSTART FÜR MODUL-PROGRAMME 


Gehen wir nun uber zu dem Autostart-Mechanismus von Modul-Pro- 
grammen, der wahrscheinlich schon vielen bekannt sein durfte, Was 
dabei vielleicht weniger gelaufig ist, ist die Moglichkeit, sich 
‚diesen Mechanismus fur eigene Initialisierunswunsche zunutze zu 
machen. 


Was sind eigentlich "Modul-Programme"? Unter diesen Programmen 
versteht man diejenigen, die zumeist per Steckmodul in den VC-20- 
Expansion-Port hineingesteckt werden konnen und sich nach Ein- 
schalten des VC-20 von selbst starten. Es sind zumeist Programme, 
welche innerhalb des A- und B-Bereiches (Adreßraum SADO0-BFFF) 
laufen, Naturlich lassen sich diese Programme auch ohne Hinein- 
stecken eines Moduls laden, wenn im A-B-Bereich RAM vorhanden 
ist. 
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Werfen wir einen Blick auf das Prinzip des Autostarts: nach Ein- 
schalten des VC-20, Drucken der RESET-Taste oder Eingabe von SYS 
64802 wird das VC-20-Betriebssystem aufgefordert, ab Adresse 
SFD22 seine Arbeit aufzunehmen. In Bild 6.5.4 konnen wir uns an- 
sehen, was da so am Anfang passiert. 


In Zeile FD22 (verwenden wir einfach die Adresse als Zeilennum- 
mer, sonst gibt es zu viele Bezeichnungen) wird das X-Register 
mit dem Wert SFF geladen, in Zeile FD24 wird daraufhin das Inter- 
rupt-Diasable-Flag gesetzt (s. Anhang A.2 fur mehr Details dies- 
bezuglich), um in diesen anfanglichen Initialisierungsarbeiten 
nicht "gestort" = unterbrochen zu werden. In Zeile FD25 wird dann 
der in X stehende Wert $FF in das Stackpointer-Register kopiert, 
um ein ordnungsgemaßes Funktionieren des Stacks von Anfang an zu 
gewahrleisten. In Zeile FD26 wird der VC-20-Mikroprozessor 6502 
auf Byte-Arithmetik "eingestellt", 


Adresse (#) Adresse (5) 


64802 FD22 LDX #$FF 

64804 FD24 SEI 

64805 FD25 TXS 

64806 FD26 CLD 

64807 FD27 JSR $FD3F 

64810 FD2A BNE $FD2F 

64812 FD2C JMP ($A000) 
Bild 6.5.4 


Schließlich gelangen wir zu der Stelle, die fur Modul-Programme 
interessant ist: in Zeile FD27 wird ein Unterprogramm ab FD3F an- 
gesprungen. In diesem UP wird geprüft, ob die ASCII-Codes der 
Zeichen "AOCBM" (letztere 3 Zeichen mit gesetztem Bit 7) ab 
Adresse SA004 vorliegen (s. Bild 6.5.5). 


Ist dies nicht der Fall, geht ohnehin alles seinen gewohnten Gang 


und der Benutzer wird nach kurzer Zeit das gewohnte VC-20-Ein- 
stiegsbild erhalten, 
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Adresse Wert ASCII-Code 
A004 41 "A" 
A005 30 04 
A00O& 63 e"mtBtE/e] 
A007 E2 "B" mit Bit 7 =1 
A008 CD "M" mit Bit 7 =1 
Bild 6,5, 


Nehmen wır aber an, daß die gesuchten Werte an der richtigen 
Stelle gefunden werden. Das UP wird dann mit gesetztem Zero-Flag 
verlassen, so daß die Anlaufroutine direkt zur Zeile FD2C ge- 
langt, Hier geschieht nun ein indirekter Sprung, den es naher zu 
erklaren sich lohnt. Der Prozessor liest den Wert aus Adresse 
SAUOD aus und faßt ihn als LOW-Teil der anzuspringenden Adresse 
auf, Den Wert ın SA0OM interpretiert er als den HIGH-Teil. Somit 
ist die Sprungädresse durch den Vektor $AU00,A001 bestimmt und 
dort setzt das Betriebssystem seine Arbeit fort. Steht also z.B. 
in SA000 der Wert $00 und in SA001 der Wert $BO, dann geht’s wei- 
ter ab Adresse 5B000, 


Vom Prinzip nur zur Ausnutzung dıeser Eigenschaft: nehmen wir an, 
Sie wurden gerne den VC-20 dazu veranlassen, einige Dinge wie 
2.B. CLEAR SCREEN oder Initialisierung von angeschlossenen Gera- 
ten etc. automatisch nach Einschalten bearbeiten zu lassen, so 
benotiger Sie ein kleines M-PGM z.B. in einem EPROM, welches ab 
SA0O00 adreßıerbar ist. In SA000,A0U01 speichern Sie den Sprungvek- 
tor, z.B. $09.A0 (entspricht SA009, in SA002,A0O03 den Sprungvek- 
tor fur die Benutzung der Tastenkombination RUN/STOP + RESTORE, 
namlich 5C7,FE (entspricht S$SFEC7) und in die Adressen SA004-A008 
die Werte gemaß Bild 6.5.5. 
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Das Programm ab SA009 sieht im Prinzip folgendermaßen aus: 


Adresse (5) 


A009 JSR SFD8D 
ADOC JSR S$SFDS2 
A0UOF JSR SFDF9 
A012 JSR SES518 
A015 CLI 
A016 JSR SE45B 
A019 JSR SE3A4 
AD1IC JSR SE404 
A0Q1F LDX #5FB 
A021 TXS 
A022 Initialisierungs- 
anweisungen 
nach eigenem 
Wunsch 
JMP 5C474 
B1ld 6,9.6 


Die Befehle in den Zeilen A009-A021 fuhren gewissermaßen die noch 
verbleibenden und auch notwendigen "Restarbeiten” fur die VC-20- 
Initialisierung aus. Ab Zeile A022 tragt man die Ihren Wunschen 
entsprechenden Befehle ein und schließt die ganze Liste mit dem 
Befehl JMP $C474 ab; dies ist der Sprung in die Basic-Eingabe- 
Warteschleife. Stande gleich in Zeile A022 dieser Sprungbefehl, 
so wurde sich der VC-20 in seinem Initialisierungs-Verhalten 
nicht im geringsten von seinem sonst ublichen Verhalten ohne die- 
ses kleine Modul-Programm unterscheiden, 
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6.6 VC-20-UHR IN DER 24. ZEILE 


Fur diejenigen von Ihnen, verehrte Leser, denen es zu umständlich 
ist per PRINT TI$S die im VC-20 vorhandene Uhr abzurufen oder die 
eine ständig sichtbare Uhrzeit wahrend der Abarbeitung eines Pro- 
gramms wunschen, ohne freilich in diesem irgendetwas ändern zu 
musser, werden arı dem hier besprochenen Programm VC-UHR ihre wah- 
re Freude haben. 


Hier wird namlich die Tatsache ausgenutzt, daß zwischen dem Vi- 
deo-Speicher (S1E0O0-1FF9 in der GV und 3K-V, $1000-11F9 in der 
AV) und dem darauf folgendem RAM-Ende (bei der GV und 3K-V) bzw. 
Basic-Anfang (bei der AV) noch 6 Bytes ungenutzt sind, welche ge- 
radezu geschaffen sind, die augenblickliche Uhrzeit anzuzeigen. 
Da hierfur kein Platz mehr in den bestehenden 23 Zeilen ubrig 
ist, wird einfach zur 24, Zeile übergegangen, 


wird die Uhrzeit per SYS-Befehl "eingeschaltet", so bleibt sie 
standig sichtbar, auch wahrend der Abarbeitung beliebiger Pro- 
gramme. Sie laßt sich nach den bekannten Regeln verandern und 
wird einfach per Drucken der Tasten RUN/STOP und RESTORE wieder 
"ausgeschaltet", 


Das Anzeigen der Uhr erledigt ein Maschinenprogramm, das je nach 
Ihrem Wunsch in einem beliebigen Speicherbereich generiert wird. 
Wenn Sie es pauschal am RAM-Ende ablegen lassen, wird es gegen 
überschreiben geschutzt und sie konnen es auch dann aufrufen, 
wenn Sie beliebige andere Programme im Arbeitsspeicher haben. 
Weiterhin ist es koppelbar mit von Ihnen frei definierbaren Be- 
fehlen (s. Kap. 4.1). 


BEDIENUNGSHINWEISE 

Das Programm wird mit RUN gestartet. Sie werden gefragt, ab wel- 
cher Adresse (dezimal) das M-PGM generiert werden soll. Bei Ein- 
gabe von E wird es ans Basic-RAM-Ende gespeichert. 

Der Basic-Loader loscht sich von selbst und die Uhr-Anzeige wird 


aktiviert. Außerdem wird angegeben, mit welchem SYS-Befehl nach 
Deaktivierung die Uhr "zuruckgeholt"” wird. 


235 


6.6 Uhr in der 24. Zeile 


Wenn Sie z.B. eine 8 KByte-Speichererweiterung haben und dieses 
Programm als erstes ans RAM-Ende legen (per Eingabe von "E”) so 
erhalten Sie die Aktivierungs-"Formel" SYS 16206. Nach Drücken 
der Tasten RUN/STOP und RESTORE wird also per SYS 16206 die Uhr- 
Anzeige wieder eingeschaltet, 


Die VC-20-Uhr wird bekannterweise durch Eingabe von (Beispiel): 
TIs="152456" fur die Uhrzeit 15.24:56 Uhr 
eingestellt. 


18 REM YC-UHR 

20 REM UHRZEIT IN DER 24.ZEILE 

30 Leiri 

48 PRINTCHRE(C147)" ABLEGEN DES M-POM:" 

sa PRINT:PRINT:PRINT"E = AM ENDE YOM BASIC-"SPC<4) "RAM-BEREICH" 

68 PRINT: PRINT :PRINT"<ZAHL> GEWIWENSCHTE AN-"SPC<73"ANFANGSADRESSE"SPLCB)" CDEZIMA 

L> vom" 

?@a FPRINTSPG<7> "PROGRAMM" : PRINT: PRINT 

88a INPUTA$: SD=VALCAS): IFSDTHEN169 

9a IFAS<C>"E"THEN4O 

100 EM=PEEK(SSI+2SSHPEEK (56) : AD=EM-L : ER=PEEK (643) +2 56MPEEK (644) 

118 IFEM=ERTHENI13® 

128 IFPEEK(ER-3><> 1I70RPEEK GER-2)<>2USDRPEEK KER-1 > CP LI6THEN1SO 

138 FOKEEM-3, 197: POKEEM-2, 286 ' PÜUKEEM-1, 196 : AD=AD-7 ' GiSUB258 

148 POKEEM-3, AL: POKEEM-4, AH% 

158 GOSUB238 : POKESS, AL POKES6, AHA AL=FRE (9) : SD=AL 

168 BOSUB2608 

178 FORI=SDTOSD+L-1 :READA$ 

188 IFA$<"H" THENA=VAL CAS) CH=CH+R  G0TO210 

19@ IFA&>"H"THENAD=VALCRIGHTEAAS,LENSASI-199 : CH=ÜH+AL  AD=AD+SD  GUOSLUBZIR A=Al'GoT 

0218 

208 A=AHr 

218 POKEI.A: IFFEEKS ID=ATHENNEXT  GUTO23O 

228 PRINT: PRINT :PRINT"ROM-BEREICH !":PRINT"ÄANDERE WAHL" PRINT"FLER ANFANGSAORESSE 

E":STOP 

238 IFCHCDIZOISISTHENFRINT 'FRINT"FROGRAMM IST FEHLER- HAFT EINGEGEBEN I 11" STOP 

240 SYSSD:NEH 

258 AHReAD/ 236: AL=AD-2SEHAHR : RETURN 

268 PRINTCHR&« 1473" M-POM-ALUFRUF MIT" PRINT 

278 FPRINTCHRECIOI" SYS") SDCHRS$ 146) : PRINT 

288 PRINT"WARTEN AUF "CHR$L 18? "READY" CHREA 1463" 1 1" RETURN 
5.144.41,127,141,19, 144,74, 74,74 

19018 DATA?4,170,173.136,2,41,2,73,2,9,148.133,252,169,8.133 

1828 DATRZS1.168, 15,138, 145, 291,136, 16.291.165. 292, 73.2.1323, 292.230 

1838 DATAZSZ,138,73,7,.160,250,132,251,160.9,149, 251, 136.16, 251, 124 

1848 DATA169,L79,141,29,3,169,H:141,21:3,96: 169, 162:41,192.209 

1858 DATAZS1,3:.240,84,141,251,9,162,114,181,0,197.64,3.282. 16 

1069 DATAZ4B,162,16,189,8,1,157, 224,3. 202, 16,447, 165. 162, 166, 161 

1870 DATR1S4, 160,32; 139,207, 32. 79.207,169,254:.133,8:174.136. 8,238 

1888 DATA134,1,32,166,214: 17%, 160.0, 232.202. 240,7,177,34, 145.0 

1099 DATAZBO, 208,246, 162:16,189,224,3,137.8,1:. 202,16, 247,162, 114 

1108 DATA189,64,3.149,0,202,16,248,.76,191.,234 





Bild 6.6.1 
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Bild 6.6.2 (Teil 2) 


PROGRAMM-EINZELHEITEN 


1.) Name: 


2.) Ausbaustufe: 


3.) Art des PGMs: 


4,) Anzahl der Bytes 
des Basic-Loaders: 


des M-PGMs:; 


Sa) Benutzte Variablen 


VC-UHR 
beliebig 


Basic-Loader 


1575 
171 


des Basic-Loaders: 
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s. Kap. 5.2 


=1cherr 


6.6 Uhr in der 24. Zeile 


5b) Benutzte Speicherzellen des M-PGMs: 


SFB,FC Hilfsvektor 

SO3FB Zeitanteilzwischenspeicher 

s0340- Zwischenspeicher der Zellen $00-72 
0340+572 

SO3EO- Zwischenspeicher der Zellen 50100-0110 
O3FO 


b.) Listings 
des Basic-Loaders: Bild 6.6. 
6. 


1 
des M-PGMs: Bild 6.6.2 (Teil 1 u. Teil 2) 


7,) Erlauterungen zum 
Basic-Loader: s. Kap 5.2 
M-PGM: implizit gegeben in Bild 6.6.2 


6.7 SCHNELLE SUCHROUTINE FÜR STRINGFELDER 


Leider muß es gerade eine so nut.zliche Tatigkeit wie das Suchen 
sein, beı der sich zeigt, daß die Bearbeitungszeiten fast uner- 
traglıch lang werden, wenn die Suchroutine in Basic geschrieben 
st. Hier muß also ein Maschinenprogramm her, welches man univer- 
sell in jedem Basic-Programm unterbringen kann, Es heißt VC- 
SEARCH, ıst nur 186 Bytes lang und durchsucht jedes beliebige 
Stringfeld bis zu 100mal schneller als ein vergleichbares Such- 
programm ın Basic, 


Das Maschinenprogramm VC-SEARCH (s. Bild 6.7.4) wird je nach 
Wunsch in einem beliebigen Speicherbereich generiert. Wenn Sie es 
pauschal am RAM-Ende ablegen lassen, wird es gegen überschreiben 
geschutzt und sie konnen es auch dann aufrufen, wenn Sie belie- 
bige andere Programme im Arbeitsspeicher haben, Weiterhin ist es 
koppelbar mit von Ihnen frei definierbaren Befehlen (s. Kap. 
2 a I p 


Rn 
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1@ REM VC-SEARCH 

20 REM SUCHE IN EINEM FELD NACH EINEM STRING 

30 L=186 

48 PRINTCHR$<147)" ABLEGEN DES M-PGM:" 

58 PRINT :PRINT:PRINT"E = AM ENDE VOM BASIC-"SPCK4)"RAM-BEREICH" 

68 FRINT:PRINT:PRINT"<ZAHL> GEWUENSCHTE AN-"SPCK7 > "ANFANGSADRESSE "SPC83" CDEZIMA 
L> vom" 

7@ PRINTSPC< 7) "PROGRAMM" PRINT: PRINT 

88 INPUTA$:SD=VAL<A$) : IFSDTHEN168 

98 IFAS<>"E"THENAO 

188 EM=PEEK (55) +256%PEEK (56) : AD=EM-L 'ER=PEEK (643) +256#PEEK (644) 

118 IFEM=ERTHENIS3E 

128 IFPEEK(ER-3)<>1970RPEEK<ER-2)<I2BGURPEEKSER-1)CDLI6THENISO 

130 POKEEM-3, 197 :POKEEM-2, 286 : POKEEM-1. 196 AD=AL-7 ' 50SUB259 

148 POKEEM-5, AL :PÜKEEM-4, AHX 

158 G0SUB258 : POKESS, AL: POKESS ‚ AHR :AL=FRE(9) : SD=AL 

160 G0OSUB26Q 

178 FORI=SDTOSD+L-1:READA$ 

188 IFA$<C"H"THENA=YALCASI | CH=CH+A : 0070218 

196 IFA$>"H" THENAD=VALCRIGHTEAS,LENCASI-1)) :CH=CH+AD AL=AD+SD  GUSUB2SA A=Al'GOT 
0218 

200 A=fHr 

21@ POKEI,A: IFPEEKSI>=ATHENNEXT :GOTO23@ 

228 PRINT: PRINT:PRINT"ROM-BEREICH !":PRINT"ANDERE WAHL" PRINT"FLUER ANFANBSADRESS 
E":STOP 

238 IFCH<>22649THENPRINT :PRINT"PROGRAMM IST FEHLER- HAFT EINGEGEBEN !!1":STOP 
248 NEW 

250 AH%=AD/2S6 :AL=AD-256HAHR : RETURN 

268 PRINTCHRECI4TI"NACH INITIALIS. MIT:" 

27@ PRINTCHREC1B)"SYS"SD+173CHRE(146) 

288 PRINT :PRINT"M-PGM-AUFRUF MIT:" 

298 PRINTCHRE(18) "SYSO, CLYRD . CSBE). CSFF) "CHREC146) PRINT PRINT"ODER" 

308 PRINT : PRINT :PRINT"M-PGM-AUFRUF MIT: " 

318 PRINTCHREC18)"SYS"SDCHREC1ST)" ;CLYRD: (SEE). CSFE) "CHRFC14G) 

320 PRINT :PRINT"LYZ=LAUFYAR. CINTEGER)SBE=SUCHBEGRIFF" 

330 PRINT"SF$=STRINGFELDNAME" : PRINT: PRINT 


348 PRINT"WARTEN AUF "CHREC1B) "READY"CHRECL4ED" | I" RETURN 
1888 DATA32, 11%,8,32, 158, 2088,36, 13,48, 14,165, 71,133, 163, 165,72 


1818 DATA133, 164, 32,81,226, 76,L8,H,160.1L81,169,H.92.,L192,H,168 

10828 DATAB, 177,163, 139, 167, 208, 177,163, 132,166, 168,1,192;11,136, 192 
10838 DATA12,132,14.1936, 132,13, 168,169, 169,4, 72, 192. 72,165,167,72 
1848 DATA169, 166, 72,76.24,210,32,1L109,H, 230, 166, 209, 221,238, 167.208 
1858 DATAZ217,104,104,32.1L98,H, 160,8, 169,167,145, 163, 208, 165, 166, 149 
18698 DATA163,96,169,58, 169, 196, 149.9,3.141,1,3,96,168,2,177 

1878 DATA?1,133,253, 136, 177,71,133, 252, 136, 177,71,139,291:162,0.202 
1888 DATA160, 235,200, 196,183, 240. 24,232, 228, 291.240.32,177.187,932,L164 
108980 DATAH,2089,252,8,92,L164.H, 49,248, 232, 152,240, 234, 208,224, 152 
11808 DATA248, 18, 208,173, 72.138, 72.192,170,104, 168, 144,96,169. 76,133 
1118 DATA®,169,L0,133,1,169,H,133,2,96 


Bild 6.7.1 


BEDIENUNGSHINWEISE 


Das Maschinen-Programm VC-SEARCH ist in dem Basic-Loader einge- 
bunden, der im Kapitel 5.2 beschriebenen wird. Detailinformation 
bezgl. diesem kann dort in Erfahrung gebracht werden. Der Basic- 
Loader wird normal mit RUN gestartet. Sie werden gefragt, ab wel- 
cher Adresse (dezimal) das M-PGM generiert werden soll. Bei Ein- 
gabe von "E" wird es ans Basic-RAM-Ende gespeichert, wobei even- 
tuell schon andere vorhandene M-PGMe in keinster Weise angetastet 
werden. 
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Um mit der Benutzung von VC-SEARCH besser vertraut zu werden, ge- 
hen wir wieder von einem Beispiel aus. Wie nehmen an, wir hätten 
einen VC-20 mit einer angeschlossenen 16KByte-Speichererweite- 
rung. Wenn wir uns per Eirgabe von "E" furs M-PGM-Generieren am 
Basic-RAM-Ende entscheiden und sonst kein anderes M-PGM dort vor- 
handen ist, erscheint folgende Anzeige auf dem Bildschirm: 


NACH INITIALISIERUNG MIT: SYS 24556 


M-PGM-AUFRUF MIT: SYSO, (LV%), (SB$),(SF$) 
ODER: 
M-PGM-AUFRUF MIT: SYS 24383, (LV%),(SBS$),(SF$) 


LV% = LAUFV. (INTEGER), SB$ = SUCHBEGRIFF, SF$ = STRINGFELDNAME 


Bei der ersten Aufrufmoglichkeit muß irgendwann vor der 1. Such- 
aktion die Initialisierung SYS 24556 vorgenommen werden. Dies 
kann entweder vor dem Start eines Programms oder auch im Programm 
geschehen, Die Initialisierung erfullt nur den Zweck, daß ein 
Sprungbefehl in Maschinensprache in den ersten drei Speicherzel- 
len #0,1,2 installiert wird, welcher bei Aufruf SYS0O,... zur ei- 
gentlichen Suchroutine VC-SEARCH fuhrt, Der Vorteil dieser Auf- 
rufmoglichkeit ist, daß die eigenen Programme grundsätzlich por- 
tabel gehalten werden konnen, weil es nur einen Suchbefehl gibt, 
namlich SYS0,... 


Die Portabilitat kann allerdings dadurch eleganter erzielt wer- 
den, daß der SYS-Sprung der zweiten Aufrufmoglichkeit per VC-COM- 
MAND (s. Kap. 4.1) mit einem selbst gewahlten Befehlswort, z.B. 
SEARCH, gekoppelt wird. Man wird somit frei von jeglicher Adres- 
senangabe, Die Suchroutine laßt sich auch direkt so aufrufen, wie 
es die Anzeige vorgibt. Bei beiden Aufrufmöglichkeiten ist darauf 
zu achten, daß hinter dem Sprungbefehl drei durch Kommata getren- 
nte Variablennamen angegeben werden müssen, deren Namen zwar be- 
liebig wahlbar sind, nicht aber deren Typ. 


Die erste Variable (LV%) muß eine vom Typ Integer sein. Sie ent- 


halt die Feldelement-Nummer, deren Wert in dreierlei Hinsicht für 
den Benutzer von Bedeutung ist: 
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- Vor dem Such-Aufruf wird der Variablen (LV%) derjenige Wert zu- 
gewiesen, von welchem String-Feldelement mit der entsprechenden 
Nummer ab die Suche gestartet werden soll. In den meisten Fal- 
len wird das der Wert 0 sein. 


- Nach Ruckkehr aus der Suchroutine enthalt (LV%) die Nummer des- 
jenigen Feldelements, welches den gesuchten Suchbegriff ent- 
halt. 


- Wenn nach Ruckkehr aus der Suchroutine der Wert von (LV%) um 1 
großer ist als die Dimension des zu durchsuchenden Stringfel- 
des, dann bedeutet dies: "Nicht gefunden", 


Die zweite Variable (SBS) muß eine vom Typ String sein, Diese 
enthalt den Suchbegriff. Hierbei ist es allerdings auch erlaubt, 
auf eine Variable zu verzichten und den Suchbegriff in Anfuh- 
rungsstrichen direkt anzugeben, 


Der dritte Name (SFS$S) bezieht sich auf das zu durchsuchende 
Stringfeld. Nur die Angabe des Namens ist erlaubt und nicht die 
sonst gewohnte ın Klammern stehende Elementnummernangabe, 


BEISPIEL 1 


Im Demo-Programm gemaß Bild 6,7.2 wird auf obiges VC-SEARCH-Gene- 
rierungsbeispiel aufgebaut, Nachdem gemaß dem ersteren Aufrufver- 
fahren VC-SEARCH initialisiert worden ist (Zeile 10), wird ein 
Stringfeld namens DAS (Zeile 20) mit 501 Feldelementen (0 ist 
miteinbezogen) dimensioniert, Das vorletzte Element (damit die 
Schnelligkeit der Routine erkennbar wird) erhalt den Inhalt "ZU 
SUCHENDER SUCHBEGRIFF GEFUNDEN" und der Suchbegriff SBS$ soll 
"SUCHBEGRIFF" heißen (Zeile 30), Allen anderen Feldelementen wird 
ein zum Teil zufalliger String der Gesamtlange von 16 Bytes zuge- 
wiesen. Dabei kommt der VC-20 zwischendurch mal ins Stocken, weil 
die Garbage-Collection-Routine Platz fur die noch verbleibenden 
Daten schaffen muß. Die Suchaktion wird in Zeile 100 gestartet, 
Nach 1.3 Sekunden liefern die restlichen Zeilen dieses Programms 
die folgende Anzeige auf dem Bildschirm: 


GEF. IN 1.3 SEK 


IM FELDELEMENT: 499 
AN DER 14, STELLE 
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Mit Recht kann hier wohl behauptet werden: "Gute Leistung !", Die 
in der Literatur desofteren genannte INSTRING-Funktion kann mit 
VC-SEARCH ebenso realisiert werden. Der in Zeile 130 aufgefuhrte 
Term: PEEK(781)PEEK(183)+2 gibt die Position innerhalb des 
String-Feldelements an, ab der der Suchbegriff vorkommt. 


@ REM DEMI-FGM FUER WOE-SERRCH CIEK-W) 

19 N=Sad: 57524556 

2a DIMDASCH> ” 

sa DAFCN-L3="ZU SLUCHENDER SUCHBEGRIFF GEFUNDEN" SBS="SUCHBEBRIFF" 
4& FÜRI=1TUN-2 

Sc HF=CHREÜRND LI ERE+HEH) 

6a FÜRJ=ITLUA: HSEHF+HE  NEKTJCHSSHE+ " SLUCHMURT" PRINTISHS 

ru DA8LL>=HFINERTI:DASND=DASCL) 

8a PRINTISDAFCN-LI:PRINTI+1SDASCN) 

3a TA=TI 

1m IH SYS, 1%, 5B$. AS IFIKDNTHENPRINT"NICHT GEFUNDEN" END 
11% PRINT PRINT"GEF. IN "CHRELISICTI-TÄIFEBACHREL 1463 "SEK" 


128 FRINT"IM FELDELEMENT “CHRECIOIIK 
1a FRINT"AN DER "CHRECLEDPEEKCTELI-PEEKCLESI+ZCHRECLIEICHRECLSTI". STELLE" 
Bild 6.7.2 
BEISPIEL 2 


Das in Bild 6.8.3 gezeigte Demo-Vergleichsprogramm soll Ihnen 
zeigen, daß die zu Beispiel 1 analoge jedoch in Basic geschriebe- 
ne Suchroutine nach wesentlich langerer Zeit ihr Ziel erreicht, 
natürlich mit gleichem Resultat. Sie werden erkennen, daß das 
Programm prinzipiell genauso wie das erste aufgebaut ist. Unter- 
schiedlich ist folgendes: 


Die Suchaktion wird in den Zeilen 130, 140 vorgenommen. Die 
String-Durchsuchung wird dabei vom Unterprogramm in den Zeilen 20 
und 30 erledigt (Unterprogramme sollten nach Moglichkeit immer am 
Anfang eines Programms stehen, weil somit ein schnellerer Zugriff 
auf sie moglich ist), Wird dieses mit der Positionsnummer P un- 
gleich 0 verlassen (die INSTRING-Funktion wird mit dem Wert in P 
auch gleich miterfüllt), so ist das String-Feldelement gefunden. 
Dieses relativ einfache Basic-Such-Unterprogramm ist fur so man- 
che Fälle sicherlich ausreichend, liefert allerdings bei großen 
Datenmengen ein zeitlich ungunstiges Ergebnis, 
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@ REM DEMÜ-VERGLEICHS-FEM FÜER WÜ-SERRCH © 16K-Y) 

1a Gola Sg are ee 
Ei Fe FÜRK=ITULENCOHEELDI-LS+L: IFMIDECDASCII,K:LSI=SBETHENP=K RETURN! 
[39_NEXTK RETURN . j 
49 H=ooc 

Su DIMDASiN. 

si DAEIM-1 =" ZU SULHENDER SUCHBEGRIFF GEFLNDEN" :SB$="SUCHBEGRIFF" 

ra FÜORI=1TON-2 

EA HE=CHRSCKRNDLLIRAE+ES I 

30 FORJ=1T05 HE=H$+H& :NEXT.J H$=HS+" SUCHWORT" :PRINTISH$ 

190 LAslldeH$ NEXTI'DASUNI=DAFCL) 

(1a FRINTI:DASCN-1> PRINTI+1:DAFEND 

120 TA=TI LS=LENTSRF) 

139 FÜRl=bTUN GLSUBeE IFFTHENIEA 

142 NEXTI 

150 IFI>NTHENFRINT"NICHT BEFUNDEN" END 

16@ PRINT:FRINT"GEF. IN "CHREL1S!CTI-TAIZEACHREL 1469 "SEK" 

170 FRINT"IM FELDELEMENT' "CHRECISPI 

138 PRINT"AN DER "CHRECLSIFCHRECLAEICHRECLSTI". STELLE" 





GEF. IN 34.1 SEK 
IM FELDELEMENT: 439 
AN DER 14 „ STELLE 


Bild 6.7.3 
PROGRAMM-EINZELHEITEN 
1.) Name: VC-SEARCH 
2.) Ausbaustufe: beliebig 
3.) Art des PGMs: Stringfeld-Suchprogramm 


4.) Anzahl der Bytes 
des Basic-Loaders: 1898 


des M-PGMs: 186 
des Beispiel-PGM 1: 466 
des " > 545 


Sa) Benutzte Variablen des Basic-Loaders: s. Kap. 5.2 


5b) Benutzte Adressen des M-PGMs: 


SA3,A4 Vektor zur Laufvariablenadresse 

SA6,A7 Inhalt der Laufvariablen 

SFB,FC,FD Deskriptor des momentanen Stringfeld- 
Elements 
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Jar naechstber Zeicnen rolen (nach Komma 


175 Ausdruck auswerten 


Bit 









a BMl Srrands wern Ausdruck = strım® 
Taı LoH Lautvwariscien-Hdresse 
aan, STH narzıı 
FARBE LI ERS. #4 


Ti Ei 
7 "nMachtolsenden Strings holen und Leskrif- 
tor nach EB’. #bE: FE ‚Laense:l.h? 


"Fenleranzei@e-Vektor verbiegen 


IMF_; 

3 hy 

1.1 

4 SR 

dr Hs 7 (aufwariabtenınnalt holen und 
1.DR HF nach At. £Ar 

ST 7 

a INT 

S LOR FAR. Tr 

BIN RE 0 ed ea ae de 

1. He Diverse Initialisierungen 

Ze 147) 

Tr 

Str Sol 

S5Tr HE 

DE'r 

STr tan 

LI HET T Rueckefrüungaoresse-| nacı Ötack 

LIA #2 

PHH 

IrA 

ZW HERE > > 4 0 0000 WE tn Fern Fe A 

Ei LIR &Ar Lautwariableninhalt nach Stack 

2AaF FHA 

zu4a LIM ss 

SU HE FHR 

PS ME #115 

SE [Sr For £ tri nac suchstr ; 

2u45 ING As Laufwariablie um 1 erhoehen 

zu4E EHE FEDER 

zung IMS EA7 

ZB4F RNE FE Spruma Immer 

















ers ueckeprrunganresse |neschen 

zaS2 PLA 

EerSsa IS FEAR: Fenlerarzeige-Vektor auf letault setz 
Zuge LOFT HE 7 7 Tiomentanen Laufvariablenirnalt der — 5 
eRsB LOR £A7 Lautwariablen zuordnen 


easAa STA CERSI.r 
2ust. IM 
Past Lim Fr 


DB 21 = BES Br 

' #23R Fehleranzeil@e-vektor auf Default serren 
#$_4 

Ze 1.Be14 15] Fehleranzei9e-Wvektor wvernieser 
Eau ET 





Bild 6.7.4 (Teil 1) 
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2geN LI #ee 


Feldstrin®aaresse HIH 


nach FI 
Felgstrinzadresse _Uh 
nach $FÜ 
ra j 
Anzahl Feldswrinazeichen 
nach #FR_ 


"Feldetringzeiser initiallsieren mo 


Suchstrinszeiger ımitıalisieren 


Sprung, WW. Suchetrie 


I 
Im 


nde yeberschnicken 


RiS: wenn Feilsistringende ueberschritten 


Kr wvertauschen 





2as3 FHE Z-Flas retten 
zuaa4 SR FZaRd Y,Y7 vertauschen 
2237 FLF E-Flas zu ke Kal 








2u98 BE send _ Srrun®, Wern Jeichen identisch u 
Zaar TR” nr = = ne E 
zaFR BEU SEkıay Sprung, ern \reekl 

zaAsT BHr E2AT7F Sprung, ern TL>E 

ZRIrF TFA - 

Zar BEN EZAAL RTS, wenn Laende Jes Yeiund. ztrinss = M 
za ENE 82051 Suchroutine wer lassen 

Sa He en TEE ee EEE ET 
eeRs TEA 

ARE PHH 

aA? Tr Kor vertauschern 

Zara TAR 

zARS PLA 

SRAA TAr 

ZAAR FLA 

zent RTS______.___ BISHER EEE EEE ER SEE 
ZOAD LOR #4 "mp Er Arta anaeacdr =ese ya 

ZARF STA Fam nach 2ER. EA. FU 


zapı LIn Head 
2AR3 STA Kal 
zupSs LUA #r2c 
ZUR? STA zaR 
ZaE9 FTS 


Bild 6.7.4 (Teil 2) 
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5c) Benutzte Variablen in den Beispiel-Programmen: 


N Maximale Feldelement-Nummer 

SBS Suchbegriff 

DAS() Stringfeld 

HS Zufalliger Buchstabe 

1% Laufvariable zur Indizierung der DAS- 
Feldelemente 

LS Länge von SB$ 

I... Schleifenzähler 

TA VC-20-Zeit bei Suchbeginn 


6.) Listings 
des Basic-Loaders: Bild 6.7.1 
des M-PGMs: Bild 6.7.4 (Teile 1 und 2) 
der Beispiel-PGMe: Bilder 6.7.2 und 6.7.3 


7.) Erlauterungen zum Basic-Loader werden in Kap. 5.2 gegeben und 
zum M-PGM implizit im Listing (Bild 6.7.4). 
Die Beispiel-Programme wurden bereits oben näher erläutert. 


6.8 SOFTWARESCHUTZ 


Gerichtsurteile der letzten Zeit haben gezeigt: Software ist gei- 
stiges Eigentum des Proyrammierers und ist durch das Urheberrecht 
geschutzt, Trotzdem werden Programme kopiert und ohne Erlaubnis 
des Verfassers weitergegeben (verkauft), Die Folge ist, daß fast 
alle PGMe mit einer kleinen Routine versehen sind, die ein Aufli- 
sten, Andern oder Kopieren verhindern sollen, 


Hier soll anhand von Beispielen gezeigt werden, wie Sie Ihre Pro- 
gramme gegen unerlaubtes Auflisten oder Kopieren schutzen konnen, 
LISTSCHUTZ 

Unter Listschutz versteht man den Schutz von Software gegen uner- 


laubtes Auflisten. Es konnen komplette PGMe oder PGM-Teile ge- 
schutzt werden. 
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Variante 1: 


Vielleicht haben Sie auch schon einmal versucht, ein PGM zu 
LISTen und bekamen nach der LIST-Anweisung die Fehlermeldung: 
"SYNTAX ERROR", Das lag daran, daß versucht wurde, ein Zeichen zu 
listen, das nicht als Basic-Code definiert war und auch nicht in 
Anfuhrungszeichen stand. 


Geben Sie als Versuch folgende Zeilen ein: 


10 REM: (Shift)L 
20 PRINT "OK" 
30 END 


Shift L in Zeile 10 bedeutet: L mit gedruckter SHIFT-Taste einge- 
ben. Wenn Sie dieses kleine PGM starten, werden Sie feststellen, 
daß es fehlerfrei arbeitet. Ein Versuch, das PGM aufzulisten, 
wird jedoch die Fehlermeldung "SYNTAX ERROR" erzeugen, Diesen 


LISTschutz konnen Sie, so oft Sie wollen und an jeder Stelle Ih- 
res PGMs einbauen, 


Variante 2; 


Der LISTschutz nach Variante 1 ist schnell zu entdecken und 
leicht zu entfernen. LISTschutz-Variante 2 ist vielleicht genauso 
schnell zu durchschauen, aber gar nicht so einfach zu entfernen. 


Geben Sie dazu in alle Zeilen, die geschutzt werden sollen, di- 
rekt hinter der Zeilennummer 5 Doppelpunkte ein, 


Beispiel: 100 :::::PRINT "LISTSCHUTZ" 


Die folgenden drei Basic-Zeilen mussen arı das zu schutzende PGM 
angehangt und mit GOTO 60000 gestartet werden. 


60000 FOR J=PEEK(43)+PEEK(44)%256 TO PEEK(45)+ 
PEEK (46)*256 

60001 IF PEEK(J)=58 AND PEEK(J+1)=58 AND PEEK( 
J+2)=58 AND PEEK(J+3)=58 AND PEEK(J+4)= 
58 THEN POKE J,0:9=J+4 

60002 NEXT 
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Das PGM ab Zeile 60000 sucht nach den 5 Doppelpunkten und 
schreibt (POKE) an die Adresse des ersten Doppelpunktes eine 
Null. Nach READY ist das PGM geschützt und kann, nachdem die Zei- 
len 60000 bis 60002 geloscht wurden, geSAVEd werden. Wenn jetzt 
das PGM geLISTet wird, dann wird zwar die Zeilennummer, aber 
nicht der Inhalt dieser Zeile aufgeLlISTet. 


Was ist passiert? 

Der erste Doppelpunkt hinter der Zeilennummer wurde durch die 
POKE-Anweisung in 0 geandert. Diese 0 wird von der LIST-Routine 
als Zeilenendekennzeichen erkannt und die nachste Zeile, deren 
Anfangsadresse bekannt ist, wird aufgelistet (vgl. VC-20-Program- 
mier-Handbuch S, 122: "Speicherung von Basic-Anweisungen" sowie 
Kap. 2.1 "Speicherorganisation bei einem Basic-Programm"),. Im 
PGM-Ablauf wird die 0 hinter der Zeilennummer auch als Zeilenen- 
dekennzeichen erkannt, aber die folgenden vier Doppelpunkte wer- 
den als Koppeladresse und Zeilennummer interpretiert. Die dadurch 
folgenden Befehle und Anweisungen werden fehlerfrei abgearbeitet. 


Variante 3: 


Der LISTschutz nach Variante 3 ist beim Auflisten des PGMs gar 
nicht als solcher zu erkennen und deshalb sehr wirkungsvoll. Zum 
besseren Verstandnis soll auch dieser LISTschutz wieder anhand 
eines kleinen Beispiels beschrieben werden, 

Geben Sie dazu folgende Zeilen ein: 


10 AS="TEST":GOTO 1000:REM"" 
20 As="" 

1000 PRINT A$ 

1010 END 


Danach fuhren Sie den Cursor auf das zweite Anfuhrungszeichen 
hinter REM in Zeile 10 und drucken bei gedruckter SHIFT-Taste 
15mal die Taste INST/DEL. Dadurch schaffen Sie Platz fur 15 Zei- 
chen, die eingefugt werden mussen, Drucken Sie jetzt 15mal die 
Taste INST/DEL ohne SHIFT. Der eben geschaffene Platz wird mit 
dem Steuerzeichen fur DELete (invertiertes T) gefullt. Anschlie- 
Rend wird die RETURN-Taste betatigt. Die zweite Halfte der Zeile 
10 ist jetzt mit einem LISTschutz versehen. Die LIST-Anweisung 
wird die Zeile 10 komplett auf dem Bildschirm darstellen, aber 
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die 15 Steuerzeichen fur DEL loschen sofort die 15 letzten Zei- 
chen dieser Zeile. Das geht so schnell, daß unser träges Auge es 
gar nicht wahrnimmt, 


KOPIERSCHUTZ 


Eine weitere Moglichkeit, Software zu schützen, besteht darin, 
das PGM mit einem Kopierschutz zu versehen. D.h.: nach dem uner- 
laubten Kopieren soll ein auf diese Weise geschutztes PGM gar 
nicht mehr oder fehlerhaft arbeiten, 


Einen Kopierschutz kann man realisieren, indem das PGM unter ei- 
nem Namen auf Kassette gespeichert wird, der langer als 16 Zei- 
chen ist und im PGM-Ablauf den Inhalt des Kassettenpuffers mit 
dem PGM-Namen vergleicht. Wie Sie wissen (Kap. 3.2), ist es mog- 
lich, ein PGM unter einem Namen zu SAVEn, der max, 176 Zeichen 
lang ist. Von diesem PGM-Namen werden bei LOAD nur 16 Zeichen 
dargestellt und es bietet sich geradezu an, die verbleibenden 160 
Bytes zu Zwecken des Softwareschutzes auszunutzen, 


Das folgende kleine Beispiel-PGM muß unter dem 17 Zeichen langen 
Namen "KOPIERSCHUTZDEMOA" auf Kassette geSAVEd werden. 


10 IF PEEK(849) <> 65 THEN STOP 
20 PRINT"OK" 
30 END 


Zeile 10 des PGMs pruft das 17. Zeichen des PGM-Namens im Kas- 
settenpuffer und stoppt den PGM-Ablauf, wenn ein Zeichen ungleich 
"A" erkannt wird. 


Sie konnen auch komplette Maschinensprache-Programme im PGM-Namen 
verbergen, die bei LOAD mit in den Kassettenpuffer geladen wer- 
den. Schreiben Sie dazu das M-PGM zusammen mit dem PGM-Namen in 
den Kassettenpuffer. Die folgende Zeile, im Direkt-Modus eingege- 
ben, schreibt den Inhalt des Kassettenpuffers in die Variable N$ 
und SAVEd das PGM unter dem Namen NS auf Kassette. 


NS="":FOR J=833 TO 1019:N$S=NS+CHRS(PEEK(J)):NEXT:SAVE NS 
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WEITERE SCHUTZMÖGLICHKETTEN 


Alle bisher beschriebenen Software-Schutzmaßnahmen, die naturlich 
auch kombiniert werden konnen, sind kein großes Hindernis fur je- 
manden, der weder Zeit noch Muhen scheut, den Softwareschutz zu 
durchbrechen. Deshalb werde an dieser Stelle der Hinweis auf das 
Kap. 6,5 "Autostart fur Basic- und Modulprogramme" gegeben, Dem 
Anwender werden dort Moglichkeiten aufgezeigt, die es ihm gestat- 
ten, den fast 100%igen Softwareschutz zu realisieren, 

Man kann z.B.: 


- wahrend des Ladevorgangs die Tastatur vollstandig verriegeln, 
so daß die STOP- und auch die RESTORE-Taste keine Funktion mehr 
haben (s. Kap. 2.7 "Tastaturabfrage und -verriegelung") oder 


- wahrend des Ladevorgangs den Vektor "Basic-Beginn"” andern und 
das PGM mitten in den verfugbaren RAM-Bereich laden. Nach einem 
Hardware-RESET kann selbst der Befehl OLD (s. Kap. 4.5) das PGM 
nicht mehr retten, weil die Startadresse des PGMs nicht bekannt 
ist. 


Versuchen Sie es doch mal, ein derart supergeschutztes Programm 
selbst zu schreiben. 


6.9 AUTOMATISCHE STRING-EINGABE: AUTOINPUT 


Stellen Sie sich vor, Sie wurden beı der Programmerstellung immer 
wieder auf die gleichen Unterprogramme, ganze Programmteile oder 
Basic-Makros zugreifen wollen, dies aber nach Moglichkeit ohne 
große Muhen, Mit dem Programm VC-AUTOINPUT konnen Sie eine solche 
Idee relativ einfach verwirklichen. Die Eingabe einer SYS-Adresse 
oder eines selbst definierten Wortes reicht aus, um Programmteil- 
oder Direkt-Modus-Eingaben automatisch eingeben zu lassen. 


VC-AUTOINPUT ist ein Maschinenprogramm (s, Bild 6.96), welches 
mehrere von Ihnen vorgegebene Eingaben beherbergt und je nach 
Wunsch in einem beliebigen Speicherbereich generiert wird. Wenn 
Sie es pauschal am RAM-Ende ablegen lassen, wird es gegen uUber- 
schreiben geschutzt und sie konnen es auch dann aufrufen, wenn 
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Sie beliebige andere Programme im Arbeitsspeicher haben. Weiter- 
hin ist jede einzelne Eingabe mit von Ihnen frei festlegbaren 
Aufrufbegriffen (s. Kap. 41) koppelbar. 


BEDIENUNGSHINWEISE 


Das Maschinenprogramm VC-AUTOINPUT ist in einem Basic-Loader 
(s. Bild 6.9.1) eingebunden, der im Kapitel 5.2 beschrieben ist. 
Detailinformation uber ihn kann dort in Erfahrung gebracht wer- 
den. Allerdings kommen hier speziell beim VC-AUTOINPUT-Basic-Loa- 
der noch einige besondere Dinge hinzu, die einer naheren Erlaute- 
rung bedurfen, 


Irgendwie mussen ja die von Ihnen vorgegebenen Texte, Programm- 
teile oder Makros - wir gebrauchen fur diese Begriffe zwecks 
Vereinheitlichung im weiteren den Namen "Autoinputs” - mit dem 
M-PGM VC-AUTOINPUT kombiniert werden, so daß sie gemeinsam eine 
zusammenhängende Einheit werden und als solche nach Belieben 
überallhin abgespeichert werden konnen, Hierfur gibt es einige 
Regeln, die in Kurzform in den Zeilen 20 und 25 des Basic-Loaders 
(Bild 6.9.1) zu finden sind! 


- Die Autoinputs mussen vor Zeile 2000 als Strings oder String- 
Teile in DATA-Anweisungen untergebracht werden. 


- Falls mehrere Autoinputs im Basic-Loader untergebracht werden 
sollen, muß jeder mit dem "Klammeraffen"-Symbol als Schlußkenn- 
zeichen abgeschlossen werden. Der letzte Autoinput wird durch 
zwei weitere Klammeraffen beendet, so daß also hinter diesem 
insgesamt 3 Klammeraffen-Symbole stehen. Falls das Klammeraf- 
fen-Symbol selbst als ein Autoinput-Zeichen auftritt, so muß 
unmittelbar hinter diesem ein zweites folgen. 


- Nicht immer ist bei Autoinputs ein abschließendes CR-Zeichen 
(RETURN-Taste) erwunscht, denken wir nur an Programmzeilentei- 
le, die durch Zusätze individuell verandert werden. Wenn aber 
ein CR-Zeichen verlangt wird, so wird dies im Autoinput durch 
das Linkspfeil-Zeichen zum Ausdruck gebracht. Falls das Links- 
pfeil-Zeichen selbst Bestandteil des Autoinputs ist, so muß un- 
mittelbar hinter diesem ein zweites folgen. 
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18 REM YC-AUTOINPUT 
20 REM AUTOM. EINGABE VON TEXTEN IN DATA’S AB 1808 

25 REM "+"=RETURN, "4H"m"e"; "@"=ENDE EINES TEXTES, "@@ "="@", "ER@"=GESAMTENDE 
30 L=89:G0SUB5Q8:ML=L:L=eL+3MBZ+ZZ 

448 PRINTCHREC147>"ABLEGEN DES M-POM: " 

58 PRINT:PRINT:PRINT"E = AM ENDE VOM BASIC-"SPC(4) "RAM-BEREICH" 

68 PRINT:PRINT:PRINT"<ZAHL> BEWUENSCHTE AN-"SPCK73"ANFANGSADRESSE"SPCCB)" CDEZIMA 
L> vom" 

?@ PRINTSPC<?) "PROGRAMM" :PRINT:PRINT 

88 INPUTAF:SD=YAL<AS) : IFSDTHENIGO 

38 IFA$<>"E"THEN4O 

188 EM»-PEEK(SS)+256HPEEK (56) :AU=EM-L : ER=PEEK (643) +236HPEEK (1.644) 

118 IFEM=ERTHEN13@ 

128 IFPEEK(ER-3)<>19F7ORPEEK(CER-23<>2BEORPEEK(ER-19 CH 1I6THENISR 

138 POKEEM-3, 197 :POKEEM-2, 206 :POKEEM-1, 196 AD=AU-7 : 00SUR2S4 

148 POKEEM-5, AL: POKEEM-4, AH% 

158 GOSUBZS0 :POKESS, AL :POKES6,AHR: Er: SD=-AL 

165 SD=SD+3WBZ : PF=1: RESTORE: GOSUBSER 

178 FORI=SDTOSD+ML-1 :RERDA$ 

180 IFA$C"H" THENA=VALCAS) :CH=CH+A!GOTOZ1Q 
198 IFA$>"H"THENAD=VALCRIOHTECAS,LENCAFI-1)) | CH=CH+AL : AL=AD+SD : GÜUSLIBZSA  A=AL ' GOT 
0218 

208 A=AH% 

218 POKEI,R: IFPEEKCID=ATHENNEXT :GOTO238 

228 PRINT :PRINT :PRINT"ROM-BEREICH !" :PRINT"ANDERE WAHL" :PRINT"FUER ANFANGSADRESS 
E":STOP 

23@ IFÜH<DIBSATHENPRINT :PRINT"PROGRAMM IST FEHLER- HAFT EINGEGEBEN | 1":STOrR 
248 NEW 

250 AHXZ=AD/2SE  AL=AD-2SCHAHR RETURN 

268 PRINTCHREC147 > "M-FOM-AUFRUF MIT: "PRINT 

27@ PRINTCHR$C 183" 378" SD-2CHREC 157)" +3HN" CHREU146) PRINT 

28® PRINT"N=1 FUER 1. TEXT" 

238 FRINT"N=2 FÜER 2. TEXT" 

308 PRINT"ETC." :PRINT:PRINT 

318 PRINT-WARTEN AUF ZCHREC 18) "READY"CHRECI4EI" 11": RETURN 





1a GOSUREED: Al$eHs: GOSUBERE: A2$=H$ : OOSUBERA 
28 GOSUB7OR : IFPFTHENPÜKESD+ML+ZZ,P 

30 IFP=8THENBZ=BZ+1 

548 ZZ=ZZ+1: IFFE=BTHENGOSLB7SO: GOTOSZ2A 

5S5@ RETURN a Ey 
688 IFI<DLÖTHENI=I+1  HS=Minsces, 1, > RETURN 
618 LD=®: I=B :READE$ :LD=LENSE$F) : IFLD=BTHENG IA 
62 CT —=C_ 
88 IFALFC>"R" THENBOQ 
7ıa@ IFA2s="@"ANDHE=-"@"ANDLD=ITHENP=8:FE=1 RETURN 
”-2@ IFR2#<C>"@" THENP=® : RETURN 

730 F=64 '00SUB?S® : RETURN 

758 Aitenas A2$eH$: GusUBEAg: RETURN 
808 IFALFC>"K"THENP=ÄSC(ALF): RETURN 
818 IFR2$="+"THENP=9S : GOSUB7SB RETURN 
N 2 P=13'RETURN _ 
1000 mr na —ER—O|ETTTTTTTITTTOOOO0 ET 
2008 DATAI62,L88, 160,H, 134, 163, 132,164, 178,248, 16, 32.1L83.H. 248,5 

2018 DATR32,L77,H, 2088, 251,32,L77,H, 202, 208, 248, 162,139, 160,H, 124 

2028 DATA142,20,3,148.21,3,96,32,1L83,H, 248, 18.32:1L64,H, 176 

2030 DATA12,32,L77,H, 208, 246, 162, 191,160, 234, 32,131 ,H, 76; 191,234 

2040 DATA166, 198, 236, 137,2,176,5, 157,119, 2,230, 198, 96, 230, 163. 208 

2858 DATA2, 230,164, 169,8, 177,163, 96 





Bild 6.9.1 
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- Was die Benutzung von Anfuhrungsstrichen sowie der Zeichen Dop- 
pelpunkt und Komma als Bestandteil eines Autoinputs angeht, 
sind die eigens dafur in Kapitel 2.6 aufgeführten Regeln zu be- 
achten, 


Ist der Basic-Loader dann entsprechend obiger Regeln in indivi- 
dueller Weise von Ihnen prapariert worden, wird dieser normal mit 
RUN gestartet. Sie werden gefragt, ab welcher Adresse (dezimal) 
das M-PGM zusammen mit den Autoinputs generiert werden soll, Bei 
Eingabe von "E" wird es ans Basic-RAM-Ende gespeichert, wobei 
eventuell schon andere vorhandene M-PGMe in keinster Weise ange- 
tastet werden, 


BEISPIEL 1 


Wir gehen beispielsweise davon aus, daß wir einen VC-20 in Grund- 
version (GV) haben. VC-AUTOINPUT soll uns jetzt die Arbeit der 
Eintipperei von mehreren PEEK-Befehlen zwecks Ausgabe der in Ka- 
pitel 21 erlauterten Basic-Arbeitsspeicher-Vektoren abnehmen. 
Dazu fugen wir die in Bild 6.9.2 aufgelisteten Zeilen 1000-1050 
in den Basic-Loader aus Bild 6.9.1 ein, Beachten Sie bitte hier- 
bei, daß fur PRINT und PEEK die im VC-20-Handbuch auf 5, 133 auf- 
gefuhrten Anweisungs-Kurzel verwendet worden sind, um Speicher- 
platz zu sparen. 


DATA "7:",.?"BA"SPEC2D,"PTC43) ; PTC4H)SPECLIP TI HIER" 
DATA "7: "PH WA"SPCCEI."PTC4SI EP TCIEISPECDIFTCITI +2ICHP TIER" 
DATA "?:",P"FA"SPCC2),"PTC473,PTL4B)SPCC2) PT 47 I HZ SEP HR" 


DATA "?:",?"FE"SPCCR) ."FTC43) 5; PTLSOISPCECZIPTLIII +ZIEHPT CHOR" 
DATA "7:",?"BE"SPCC2Y, "PTCS53 : PTESSISFELZIF CIE +HZIEHP TIER" 
DATR a8 





Bild 6.9.2 


Wie Sie den Zeilen in Bild 6.9.2 leicht entnehmen konnen, handelt 
es sich hierbei um insgesamt 5 Autoinputs, denn das letzte Zei- 
chen jeder der DATA-Zeilen 1000-1040 ist ein Klammeraffen-Zei- 
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chen, In diesem Beispiel ist dies reiner Zufall. Es ist ebenso 
moglich mehrere Autoinputs in eine einzige DATA-Zeile zu packen. 
Genauso ist es erlaubt, daß sich ein Autoinput uber mehrere DATA- 
Zeilen erstreckt. Innerhalb einer DATA-Zeile konnen Sie, so oft 
Sie wollen, Stringteile durch Kommata trennen. 


Dieser von uns praparierte VC-AUTOINPUT-Basic-Loader wird nun mit 
RUN gestartet (vorher SAVEn !D). Nach einer kurzen Berechnungs- 
zeit geben wir "E" ein, damit das M-PGM mit den Autoinputs (s, 
Bild 6.9.5) am Basic-RAM-Ende abgespeichert wird. Wenn dort sonst 
kein anderes M-PGM vorhanden ist, wird folgende Anzeige auf dem 
Bildschirm erscheinen: 


M-PGM-AUFRUF MIT: SYS 7313 + 3#N 


N=1 fur 1. Text, N=2 fur 2. Text, etc. 


Wir wissen bereits, daß wir 5 Autoinputs abgespeichert haben. 
Demnach sind gemaß der angezeigten Erlauterung die Werte N=1, 
N=2, N=3, N=4 und N=5 moglich, Falls wir in der Basic-Loader-Zei- 
le 240 das NEW durch ein END ersetzt hatten, wurden wir nach Ein- 
gabe der 5 SYS-Adressen das in Bild 6,9.3 zu sehende Resultat er- 
halten. Es versteht sich von selbst, daß anstatt SYS 7313+3*1 
eberiso SYS 7316 eingegeben werden kann. Auch konnen diese Adres- 
sen Inhalte eines Feldes AT(5) sein, so daß die Eingaben per SYS 
AT), SYS AT@) etc, erlaubt sind. Diese SYS-Befehle durfen kei- 
neswegs nur im Direkt-Modus benutzt werden. Auch innerhalb von 
Programmen sind sie gultig, 


Eingabe: Ausgabe auf dem Bildschirm: 
syS 7313+3%1 BA 1 16 4097 
SYS 7319+3*2 VA 210 24 6354 
SYS 7313+3%3 FA 108 25 6508 
SYS 7313+3%4 FE 108 25 6508 
SYS 7313+3%5 BE 147 28 79315 

Bild 6.9.3 


255 


6.9 AUTOINPUT 


Was als Resultat in diesem Beispiel herauskommt, sind die Werte 
und deren LOW/HIGH-Anteile der Vektoren: Basic-Anfang (BA), Va- 
riablen-Anfang (VA), Felder-Anfang (FA), Felder-Ende (FE) und 
Basic-Ende (BE). Der Vollstandigkeit halber sollte erwähnt wer- 
den, daß uber den in Bild 6.9.3 aufgezeigten Bildschirmausgaben 
noch zusatzlich der jeweilige Autoinput selbst zu sehen ist. 


BEISPIEL 2 


Nehmen wir an, wir gebrauchen in unserer Programmerstellung hau- 
fig die Eingabe-Warteschleife nach folgendem Muster: 


10 GET ES$:IF E$="" THEN 10 


Es ware also wunschenswert, wenn wir per VC-AUTOINPUT das "Gerip- 
pe" dieser Warteschleife auf den Bildschirm zaubern konnten, um 
nach M-PGM-Aufruf nur noch die passende Zeilennummer nachtragen 
zu müssen, Die Einbringung der Zeilen 1000 und 1010 gemaß Bild 
6.9.4 in den Basic-Loader (Bild 6.9.1) fuhren uns zur Realisie- 
rung dieser Idee, Nach Generierung von VC-AUTOINPUT in gleicher 
Weise wie oben, laßt sich, wie vorhergesehen, das Warteschleifen- 
Makro per SYS 7562 hervorholen. 


1088 DATA " GETE$: IF" ,E$=""THENG 


1210 DATA ad 





Bild 6.9.4 
PROGRAMM-EINZELHEITEN 
1.) Name: VC-AUTOINPUT 
2.) Ausbaustufe: beliebig 
3.) Art des PGMs: Betriebssystem-Zusatzroutine 


256 


4. 


ie 


6. 


r2 


Bw 


Bw 


w 


6.9 AUTOINPUT 


Anzahl der Bytes 
des Basic-Loaders: 1938 (ohne Autoinputs) 


des M-PGMs: 88 ic" > ) 
des Beispiel-PGM 1: 2257 
des " ” Bi 1968 


Benutzte Variablen: s. Kap. 5.2 
sowie die in den Zeilen 500-820 vorkommenden Hilfsvariablen 


Listings 
des Basic-Loaders: Bild 6.9.1 
des M-PGMs: Bild 6.9.6 
der Autoinput-Tabelle 

im Beispiel 1: Bild 6.9.5 


Die wesentlichen Erlauterungen zum Basic-Loader werden in 
Kap. 5.2 gegeben. Speziell beim VC-AUTOINPUT-Basic-Loader 
kommen die Zeilen 500-820 hinzu, die fur die ordnungsgemaße 
Integrierung der Autoinputs in das M-PGM sorgen, 

Die Erlauterungen zum M-PGM sind implizit im Listing (Bild 
6.9.6) gegeben. 


Rey 
ME . Zu. BE u 
Re Be 
x E83 
u er 
Ii338rPrCcXxl 
r2 3. ms KR 
u * 2 
z:.——.,_—. 
| K 4 4 ’ CR 
ENU | 





Bild 6.9.5: Die am M-PGM-Ende generierte Tabelle im Beispiel 1 
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zameı BIT saaR3 = LIA #200 bei SPruns in FZan1 

Een vr ee Scanner-Vektor $A3,$H4 auf 

ars i Pl Textanfa t i 3 
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zuas ST End 

ee = E-Fla@ beinflussen 

zaal BEU SZA1lE SFrung, wenn l. Text ausgesucht 

zadE SR s20865 ” "Momentanes Zeichen holen en 
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2213 JSR +2050 Textende suchen 

en a j zurueck, wenn noch nicht sefunden 
Ze18 ITS ea) Scanner auf naechstes Zeichen t 
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zei EHE SEMGE  ausgesuchter Text noch nicht setunden 
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Y +a315 
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: BES za Sprung. wenn Tastaturpuffer woll ns 
+ JSR gadSk NHaechestes Zeichen holen 
=. BHE sEBEF oo | Sprung zurueck, wenr nicht Textende 
2 Lim #FRF "Interrurtroutine auf alten Stand brinsen 
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zaal JER_ FEQE2 
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LOK Ur 





2045 SPX 15283 kiewiel Zeichen im Tastaturpruffer? 
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PA7] Ss err.n Zeichen in Puff " 

zua4n ING 6 FREE 
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- EM. EAI, EA = FAR, FA + 
[4 BHE s2056 
4 IND EA4 
zasSs Lor #80 
Ra In LEAD: TV Zeichen holen 





entspricht #00 = Textende 


Bild 6.9.6 


6.10 BIT-MAPPING BEIM VC-20 


Jeder Benutzer des VC-20 weiß es; das Betriebssystem des VC-20 
unterstützt die hochauflosende Graphik leider nicht. Befehle, wie 
"Zeichne ein Kreis” oder "Zeichen eine Gerade" (alles naturlich 
in gewohnter Weise in Englisch), sind also von Hause aus nicht 
vorhanden. Dies ist nicht weiter tragisch, weil der VC-20 dem Be- 
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nutzer auch in dieser Hinsicht glucklicherweise viel "Spiel"-Raum 
laßt. Bit-Mapping ist also hier das Stichwort und es stellt sich 
die Frage, wie das beim VC-20 realisiert wird. Fur diejenigen, 
die den Begriff noch nicht kennen: Bit-Mapping heißt, jedes auf 
dem Bildschirm sichtbare Pixel nach Belieben "ein-" und "aus- 
schalten" zu konnen (m Normalfalle besteht ein VC-20-Zeichen aus 
8%8=64 Pixels). Daruberhinaus stellen wir die Forderung, daß die 
hierzu erarbeiteten Hilfsmittel fur jegliche Anwendung, bei der 
Bit-Mapping gebraucht wird, bequem nutzbar sind. 


ALLGEMEINES 


Pirschen wir uns an die Bit-Mapping-Losung derart heran, daß wir 
zuerst einmal sämtliche benotigte Angaben uber die Beziehungen 
zwischen den Begriffen: Zeichengenerator, Videospeicher, deren 
Inhalte und Zeichengroße in sinnvoller und praktisch verwertbarer 
Form zusammenträgen. Ohne ein wenig Theorie und Mathematik geht's 
leider nicht. Nur fertige Programmteile Ihnen vor die Fuße zu 
werfen, soll nicht Sinn und Zweck dieses Kapitels sein. Vielmehr 
geht es hier darum, einen tieferen Blick in die Arbeitsweise des 
Bit-Mapping zu vermitteln, so daß Sie eigenstandig auch andere 
Programmlosungen kreieren konnen und sogar vielleicht das Wissen 
auf Maschinenprogramme anwenden, Denn eines muß gleich von vorn- 
herein gesagt werden: das Bit-Mapping per Basic geht nicht beson- 
ders schnell. Ein Maschinenprogramm konnte bis zur 100fachen Ge- 
schwindigkeit die gleiche Arbeit verrichten, 


Wenden wir uns zu Anfang dem Zeichengenerator zu. Dieser Spei- 
cherbereich ist im Normalfall, also nach Einschalten des VC-20 
oder nach RESET (das Vorhandensein von Modulprogrammen schließen 
wir hierbei aus), der Bereich $8000-8FFF = 32768-36863 und umfaßt 
die Pixelzeilen aller darstellbaren VC-20-Zeichen, Unter einer 
Pixelzeile wird eine der 8 Zeilen verstanden, die jeweils aus 8 
einzelnen Pixels bestehen. Die Pixelzeilen ergeben, untereinander 
geschichtet, ein Zeichen. Wenn das D-Bit (Bit 0 der Adresse 
s9003) gesetzt ist, besteht ein Zeichen nicht aus 8, sondern aus 
16 Pixelzeilen. Die Kombination der in einer Pixelzeile vorhande- 
nen Pixels wird durch den Wert eines Bytes (8 Bits = 8 Pixels) 
vollstandig beschrieben. Deswegen sind die Pixelzeilen als Bytes 
gespeichert, 8 Bytes pro Zeichen. Der VC-20 beinhaltet 2 Zeichen- 
säatze von je 128 verschiedenen Zeichen (s. 5. 141-142 im VC-20- 
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Handbuch). Dies ergibt 8%*2*128 = 2048 Bytes. Da alle Zeichen auch 
in invertierter Form vorliegen, werden also 4096 Bytes benotigt, 
die ja genau in den Bereich $8000-8FFF hineinpassen. 


Beim Bit-Mapping konnen wir mit dem vorgegebenen Zeichengenerator 
allerdings nichts anfangen. Wir mussen also unseren eigenen 
schaffen, was jedoch nur im RAM-Bereich moglich ist. Die Tabelle 
A.5.8 im Anhang A.5 gibt uns daruber Auskunft, wie die Zeichenge- 
nerator-Anfangsadresse festgelegt wird! 


Zeichengenerator-Anfangsadresse ZA: 


Festlegen: POKE 36869, (PEEK(36869) AND 240) OR X (1) 
mit: x ZA 

12 4096 

13 5120 

14 6144 

15 7168 


Daraus ergibt sich die folgende Beziehung zwischen dem Inhalt der 
Zelle 36869 und ZA: 


Bestimmen: ZA = (PEEK(36869) AND 3)%1024 + 4096 (2) 
Darüberhinaus ist die Festlegung der Anzahl der Pixelzeilen pro 
Zeichen notwendig. Es gibt nur die bereits oben genannten Mog- 
lichkeiten, nämlich 8 oder 16, die durch das D-Bit des VIC-Re- 
gisters CR3 (s. Tabelle A.5.10 im Anhang A.5) bestimmt werden. 


Pixelzeilen-Anzahl PZN: 


Festlegen: POKE 36867 , (PEEK(36867) AND 254) OR D (3) 
mit: D PZN 

0 8 

1 16 
Bestimmen: PZN = 8*(1 + (PEEK(36867) AND 1)) (4) 
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Das, was auf dem Bildschirm zu sehen ist, stellt gewissermaßen 
ein bestimmter visualisierter Speicherbereich des VC-20 dar, 
fragt sich nur welcher. Wie oben stellen wir auch hierfur einige 
Beziehungen her: 

Videospeicher-Anfangsadresse VA: 

Festlegen: siehe Tabelle A.5.6 im Anharıg A,5 


Bestimmen: VA = (PEEK(36869) AND 48)%64 + (5) 
(PEEK(36866) AND 128)* 4 + 4096 


Zum Beispiel ist nach dem Einschalten VA = 7680 fur einen VC-20 
in Grundversion und VA = 409 fur einen mit einer angeschlossenen 


Speichererweiterung von mehr als 3 KByte, 


In Verbindung mit dem Videospeicher sind noch zwei weitere Großen 
von Bedeutung: 


CN = Anzahl der Zeichen pro Zeile: 


Festlegen: POKE 36866 , (PEEK(36866) AND 128) OR CN (6) 
Best immen: CN = PEEK(36866) AND 127 (7) 


LN = Anzahl der Zeilen: 


Festlegen: POKE 36867 , (PEEK(36867) AND 1) OR LN#2 (8) 
Bestimmen: LN = (PEEK(36867) AND 126)/2 (9) 
VA VA+l VA+2 VA+CN-1 


VA+CN VA+CN+1 


VA+CN*CLN-1) ... VA+CN*LN-1 


Bild 6.10.1 
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Bild 6.10.41 soll einen Bildschirm andeuten, Die Videospeicher- 
Zellen sind in der dargestellten Weise auf dem Bildschirm ange- 
ordnet, Dieses Anordnungsprinzip muß verstanden werden, um die 
spezielle Bit-Mapping-Speicherorganisation in geeigneter Weise 
durchführen zu konnen, 


Jedes der CN*LN Videospeicherplatze enthalt einen Videocode-Wert 
(VD), naturlich einen Wert zwischen 0 und 255. Jeder dieser Werte 
muß logischerweise einen bestimmten Zeichengeneratorbereich von 
je 8 bzw. 16 Byte Lange, namlich die Pixelzeilen, adressieren, 
der den Videospeicherplatz somit in gewunschter Weise in Form ei- 
nes sichtbaren Zeichens oder beliebigen Pixel-Rasters beim Bit- 
Mapping ausfullt. Der Zusammenhang zwischen dem Videocode VD und 
den zugehorigen Pixelzeilenadressen PZA laßt sich in folgender 
Weise beschreiben: 


Pixelzeilenadresse PZA: 


Bestimmen: Pixelzeile PZA = 
1 ZA + VD*PZN + 0 (10) 
2 ZA + VD#PZN + 1 
8 bzw. 16 ZA + VD*PZN + 7 bzw. 15 


Pixelzeileninhalt PZI: 
Festlegen: POKE PZA,PZI (11) 


Bestimmen: PZI = PEEK(PZA) (12) 


Der Pixelzeileninhalt gibt mit anderen Worten die Kombination der 
8 Pixels einer Pixelzeile an. 
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BEISPIEL 


Von der Theorie zur Praxis. Ziel unserer überlegungen bei diesem 
Beispiel war, den Speicherbereich $1000-1FFF = #4096-8191 furs 
Bit-Mapping derart zu organisieren, daß Videospeicher und Zei- 
chengenerator - im weiteren bezeichnen wir beide als Bit-Map- 
Speicher - ın optimaler Weise zusammen darin Platz finden, Die 
Losung dieser Problemstellung finden Sie in Bild 6.10.2. 


a REM HISH-REE 
LE TEN 
ze SPeIHiir 





or FE neh 
kind FÜREe 
ala 
1 ki erh 





a le Til 
"d Al=2l met 
ala SUR 2 2 URL TEE 
FÜKERLF SG 






Yo et 






Fukbrl Ze Rn BB 

ı Fk ki 
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PR ln) 

il 

eteik 

za MALE. 





Bild 6.10.2 


In der VC-20-Grundversion findet das Programm HIGH-RES ın Bild 
6.10.2 naturlich keinen Platz mehr. Bei den erweiterten Versionen 
andererseits reicht ein bloßes Laden nicht aus, weil der Bit-Map- 
Speicher sich mit dem Basic-Arbeitsspeicher uberlappen wurde, 


In der >=8KByte-Version muß deswegen der Basic-Anfang vor dem La- 
den nach oben versetzt werden: 


POKE 44,32:POKE 8192 ,0:NEW (Return) 


263 


6.10 Bit-Mapping 


In der 3KByte-Version reicht es aus, das Basic-Ende nach unten zu 
verschieben: 
FOKE 56,16:NEW (Return) 


HIGH-RES enthalt zwei universell einsetzbare Bit-Map-Unterpro- 
gramme: 


Zeilen 500-520: In dem Punkt X,Y mit X=0...159 und Y=0...191 
wird ein Pıxel sichtbar gemacht, 


Zeilen 1000-1130: Der Bit-Map-Speicher wird initialisiert und 
alle Pixels werden geloscht. 
Erläuterungen zum Programm HIGH-RES: 
Die POKE-Anweisungen in den Zeılen 1000, 1010 und 1030 enthalten 
in Kurzform das, was die Beziehungen in Tabelle A.5.6 sowie die 
Beziehung (6) fur folgende Werte herbeifuhren wurden: 
ZA = 4096 VA = 4096 CN = 20 


Die Zeıle 1020 legt. fest: 


PZN = 16 LN = 12 


Aus diesen Werten sınd die folgenden ableitbar: 


Insgesamte Zeichenzahl: CN*LN = 20%12 = 240 
Videospeicher-Bereich: #4096-4335 


Horizontale Auflosung: 20%8 = 160 Pixels 
Vertikale Auflosung: 12%PZN = 12%16 = 192 Pixels 
Gesamtauflosung: 160%192 = 30720 Fixels 


Die Werte fur die Videocodes mussen einerseits in jeder Video- 
speicherzelle verschieden sein (unabhangige Pixelzuweisung), an- 
dererseits durfen sie keine Adressen des Videospeichers als Zei- 
chengenerator-Bestandteil adressieren, Demzufolge darf VD nicht 
die Werte 0 bis 14 einnehmen (siehe Beziehung (10), Wir lassen 
die 15 aus und beginnen bei 16 (Zeile 1040), 
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Die Schleife in den Zeilen 1050-1100 weist jeder der 240 Video- 
speicher-Zellen den Videocode VD zu, von 16 an aufwärts bis zu 
255. PZA fangt somit bei #4352 an. Der letzte PZA-Wert ist 819. 
Das Bild 6.10.3 verdeutlicht erganzend den Zusammenhang zwischen 
Videospeicher, VD und PZA. 


Videospeicher- VD (#) PZA-Bereich (#) 
Adresse (#) 


4096 16 4352 - 4367 

4097 17 4368 - 4384 

4335 255 8176 - 8191 
Bild 6.10.3 


Wir haben somit unser Ziel erreicht, einen zusammenhangenden Bit- 
Map-Speicher zu organisieren. Nur die 16 Speicherzellen #4336 - 
#4351 bleiben ungenutzt, was wohl verschmerzbar ist. 


Die Programmzeile 1090 sorgt dafur, daß die zukunftig erzeugten 
Pixels auch wirklich zu sehen sind (Farbe "Blau"), 


Es folgt die Schleife 1110-1120, die in alle PZAs den Wert PZI=0 
hineinPOKEd. Mit anderen Worten werden alle Pixels geloscht, was 
somit die Funktion CLEAR SCREEN beim Bit-Mapping darstellt. 


Die Zeilen 2100-2120 sind in HIGH-RES freigelassen und sollen die 
Programmteile fur die jeweilige Berechnung der X,Y-Werte beinhal- 
ten, Beispiele dafur finden Sie im Bild 6.10.4, Beachten Sie, daß 
nach Berechnung von X und Y (deren Werte mussen unbedingt im oben 
angegebenen Bereich sein, sonst gibt's Programmsalat) der Sprung 
ins Unterprogramm 500 erfolgt, worin das eigentliche "Einschal- 
ten" der Pixels vorgenommen wird. Der Algorithmus fur die Bit- 
zuweisung in der betreffenden Videospeicherzelle ist recht ein- 
fach und bedarf keiner weiteren Erläuterung, 


Lassen Sie sich nicht durch das SYS 52100 am Ende des Programms 
verwirren. Dies ist nur ein Sprung zu einer Adresse mit dem In- 
halt 0, was die BREAK-Funktion des Mikroprozessors aktiviert. Die 
Konsequenz ist: Umschalten von Bit-Mapping in VC-20-"Mapping". 
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Rem DEM FARHBEL @ REM DEMU: KREISE 

aid FÜRK=BTOLHS 21a FÜRL=1TIIG 

Z110 "elslali-nRra-l) 1) 2118 Hi=1#20: FÜR«=BC-H1TOS@+H1 

zı28 GUSUBSER 2120 IFK>LSSTHENZIGR 

2130 nexl 2130 HV=SORCU CA TECK Bel TR} 
ZI VeIBR HH GUSUBSUR 
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a REM DEM: RASTER a REM DEMI: ZUFALLSFUHRTE 
z1ae FÜRST 2120 K=l6EO#HRHNLN 1) 

Zl1d FÜRT=AAHNIILTÜLSISTERFZ 2118 Y=l9EHRNDE1> 

z1220 GÜSLUPSWE 2120 GOSURBSRE 

2134 NMEATY.H 2138 GOlDE1EK 


Bild 6.10.4 


6.11 ASCIL/VIDEOCODE-KONVERTIERUNG 


Im VC-20-Handbuch finden Sie auf den Seiten 141-142 die Bild- 
schirm-Codes (sie werden auch als Videocodes bezeichnet) und auf 
den Seiten 145-147 die ASCII-Codes. In beiden Tabellen finden wir 
die gleichen Zeichen, nur mit teilweise anderen Code-Werten. In 
manchen Programmen ist es vonnoten, per Konvertierungsbeziehung 
diese beiden Codes gegenseitig umzurechnen, 


a REM YIDEO-ASCITI-CODEUMWUANDLUNG 

1a IMPUTYI 

114 GÜOSUB1ERR 

12& PRINTAS 

se CT nn 
1800 WI=VIANDIET 

ı@12@ IFVIANDSZTHENIAF4R 

ı1a2@ IFYIANDS4THENASeN [ORSZ  RETUFM 
12324 AS=Y1IOR64 RETURN 

1842 IFYIANDG4THENAS=VIANDESORLZE:RETUFN 
1258 ASeVI: RETURN j 


Bild 6.11.31 


266 


6.11 ASCII/Videocode-Konvertierung 


Die Programme in den Bildern 6.11.1 und 6.11.2, insbesondere de- 
ren Unterprogramme ab Zeile 1000 leisten diese Konvertierung. 
überprüfen Sie sie mal! Zu Demonstrationszwecken sind einige Zei- 
len vorangestellt, mittels denen Sie im Falle der ASCII-Video- 
code-Umwandlung einen ASCII-Code (Variable AS) eingeben konnen, 
z.B. 65 fur "A", und den korrelierenden Videocode-Wert (Varıable 
VI), im unserem Beispiel: 1, zuruckerhalten. 


a REM ASCII-VIDEO-CODEUMWAHLLUNG 

ı1aa INPUTAS 

11a GOSLUBIBRE 

124 PRINTYI 

138 GOTOLEQO 

1480 IFRSANDIZITHENYI=SASANDIEFORBS RETURN 
1212 IFMOTASANDS4THENYI=AS : RETIUFRN 

19428 IFASAHD3ZTHENYI=ASANDFS: RETURN 

1234 V“I=SASANDES: RETURH 





Bild 6.11.2 


6.12 8-FACHE VERGROSSERUNG DER VC-20-ZEICHEN 


Wenn wir uns die Zeichen des VC-20 auf dem Fernsehbildschirm an- 
schauen, halten wır es nicht fur moglich, wie sehr uns unsere Au- 
gen dabei betrugen, Unser Auge fullt namlich die an sich groben 
Zeichenpixelraster derart aus, daß wir keine Unfeinheiten mehr 
wahrriehmer,. uberzeugen Sie sich davon! Laden Sie das Programm in 
Bild 6.12.1, starten es und geben ein beliebiges Zeichen ein. Je- 
des einzelne Pixel wird daraufhın in Zeichengroße und in der 
richtigen Anordnung dargestellt. Daruberhinaus wird eine horizon- 
tale und vertikale Skala in den Bereichen (..7 angezeigt, so daß 
genau erkannt werden kann, an welcher Stelle der jeweilige Pixel- 
punkt sich befindet. 


Das Programm ist 319 Bytes lang und lauft in jeder VC-20-Version. 
Das eingegebene Zeichen ist das dritte Zeichen auf dem Bild- 
schirm, dessen Adresse 22 in Zeile 20 berechnet wird. In Zeile 60 
erhalt B den Inhalt (den Video-Code also) der Adresse Z2, und der 
Variablen A wird diejenige in den Zeichengenerätorbereich fallen- 
de Adresse zugewiesen, ab der in 8 Bytes die 8 einzelnen Pixel- 
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zeilen des eingegebenen Zeichens gespeichert sind. Die restlichen 
Anweisungen sorgen fur die Darstellung auf dem Bildschirm. 


18 REM EFACHE VERGRNESSERUNG ALLER ZEICHEN 
za ZZ=FEER BE IMZIE+E 

38 FORGL=BTIT BICECLI=Z2 rt. 7-CL7:NEMT 

4a FRINTCHREEI4TO 

Sa PRIHNTEHREEIFPS: INFÜTAS 

EA B=PEERr 22 AR=BRE+H 32 /SO+lPEERIESSEFIAHNDZIRIAZ4 
ra FOkI=1T012 FOKEFEL.TDSTSERA4F NET 

8a FORLL=ATOT FÜREE1L.B:PRINTCHREL1FOCLE 

34 FÜRGF=BTN7 

1am IFFEERÜR+LLSANDEILCPSTHENPRINTEHREC 1; 
11.0 FRINT" "CHREWIAEN: 

I2A MESTEP DL 

(ad FRINT'PRINT:PRINTSPCCH" FREIE" 

142 Garose 


Bild 6.12.1 


6.13 ZEICHEN IN DOPPELTER HÖHE 


Das Programm in Bild 6.13.1 ist sowohl ein Demonstrationsbeispiel 
fur die Verwendung der Tabelle A.5.8 im Anhang A.5 als auch eine 
nützliche prinzipiell in jedem Programm verwendbare Einrichtung, 
welche die Darstellung der VC-20-Zeichen in doppelter Hohe er- 
laubt, Das Programm lauft zwar in jeder VC-20-Version, belegt je- 
doch den 1536 Bytes umfassenden RAM-Bereich $1800-1DFF bzw. 
#6144-7679 zur Speicherung des hierbei "selbstgestrickten" Zei- 
chengenerators fur die Zeichen des Videocodes #0-95 gemaß Tabelle 
auf den Seiten 141-142 im VC-20-Handbuch, Falls also großere Pro- 
gramme in der VC-20-Version mit >=8KByte-Speichererweiterung zum 
Einsatz kommen sollten, ist es empfehlenswert, den Basic-Anfang- 
Vektor mittels des im Kap. 2.1 beschriebenen Verfahrens auf $S1E01 
bzw. #7681 zu setzen. In diesem Fall ist es allerdings notig, das 
"POKE 56,24" aus Zeile 20 herauszunehmen, 


Die Variable AD erhalt die Anfangsadresse #6144 fur den nach£ol- 


gend generierten Zeichengenerator. Das POKE 657,128 unterbindet 
die Zeichenumschaltemoglichkeit, denn aus Gründen der Speicher- 
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6.13 Doppelte Hohe 


platzeinsparung ist die Verdoppelung nicht fur alle Zeichen vor- 
gesehen. Damit uberhaupt ein Zeichen in 16 einzelnen Pixel-Zeilen 
auf dem Bildschirm dargestellt werden, ist das Setzen den Double- 
Bits (D-Bit = Bit 0 in Adresse $9003, s. Tabelle A.5.10) per POKE 
36867,27 erforderlich. Zeile 40 spiegelt die in Tabelle A.5.8 
gezeigte Regel wider. In den Zeilen 60-70 werden 2mal hinterein- 
ander die gleichen Pixel-Zeilen abgespeichert, was schließlich 
die doppelte Hohe ausmacht. 


10 REM DOPPELTE HOHE 

20 POKE 56,24:CLR:AD=6144 

30 POKE 657,128:POKE 36867,27 

40 POKE 36869, PEEK(36869) AND 24 OR 14 
50 FOR I=0 TO 767 

60 POKE 2*I+AD,PEEK(32768+1) 

70 POKE 2%*I+AD+1,PEEK(32768+1) 

80 NEXT 


Bild 6.13.1 


6.14 UMLAUTE UND ß 


Das in Bild 6.14.1 gezeigte Programm UMLAUTE UND SCHARFES S ist 
ein zusätzliches Demonstrationsprogramm, welches als ein weiteres 
Beispiel fur die Erstellung eines eigenen Zeichengenerators ange- 
sehen werden kann. Es lauft in allen VC-20-Versionen und soll an 
sich nur ein Anstoß dafur geben, in anderen Programmen, eventuell 
Textverarbeitungsprogrammen, die Darstellungsmoglichkeit fur die 
gewohnten Umlaute vorzusehen, 


In Zeile 50 wird das Basic-Ende auf den Anfang (Adresse #6144) 
des neuen Zeichengenerators gesetzt. 


In Zeile 60 wird die Zeichensatzumschaltemoglichkeit ausgeschal- 
tet. Das Umschalten hatte namlich wenig Zweck, weil der neue Zei- 
chengenerator langst nicht so groß ist (1535 Byte), daß er zwei 
Zeichensatze unterzubringen vermag. 
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6.14 Umlaute und R 


1a REM UMLAUTE UHo SCHARFES © 
za FRINTSHRELIA4FN" OLGENLE +EICHEr Wie" 
sa FRIMT"DEH YWERIMÜERT 

40 ERIMTFRINT"L I = @ IE" 
Sa FRE, GER Anzeige " 







EA FOkEES 
za FÜKESER 


11a FÜRi=E #S+ADTLT- 
12a ‚READS FÜKEL:R NE» N 

E15 | T=23#8+Hl FOREI: 
148 FORL=1107 
139 POKEJ+L.FEERC{AD+E+T>  NERT 
IE JSE4HS+Hn FÜRKES. A 
ira FÜRI=1TUT 
182 FÜKEJ+IL FEeCKiD+eHESt+ ie Mer 
130 FOKERN; 36 on 
zus Fükrls) Tor 
21a FOKERL+L. PEERKCAD+HEHL SH LS Ba 
220 Jeidzarörah FokErf om 
za FÜRI=ITLG 
za FÜKEI+I. Shrek ae u 
P-7 3) = 4 Fi Fur El I» 
erg FÜRIT=I TIL 

ara FOKEJI+L.FEERSADHEREIHTLO HEAT 
zen Jetiskz+Al Pure. Se 
23a Füklei Torf 

ma FOKEI+L.FEEREHLFSMEOTH+ TE hc 















Bild 6.14.1 


In Zeile 90 wird gemaß Regel in Tabelle A.5.6 ım Anhang A.5 der 
Zeichengenerätor-Anfang auf die Adresse #6144 festgelegt, worauf 
in den Zeilen 80-90 die ersten 1536 Pıxelzeilen des VC-20-Zei- 
chensatzes 2 (S8800-&8FFF = #34816-36863) ınnı den neuen Zeichenge- 
nerator-Bereich kopiert werden. 


Da dıe Videocodes (s. Kap. 6.10) nur Pıxelzeilerı ab Adresse #6144 
adressieren, und diese ihrerseits sıch jetzt ım RAM-Bereich be- 
finden, lassen sich dıe Buchstaben und Zeichen nach Belieben und 
eigenem "Geschmack" gestalten. Auch gotische, altdeutsche, kyril- 
lische oder griechische Schrift ıst naturlich kreierbar. Bleiben 
wir aber bei. den Umlauten. 


Wie Sie den weiteren Zeilen entnehmen konnen, ist gar nicht so 


viel zu tun, um das Ziel "Umlaute und ß" zu realisieren. Natur- 
lich nutzen wir hierbei die Tatsache aus, daß die Pixelzeilen der 
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6.14 Umlaute und ß 


Buchstaben A, 0, U, a, o und u bereits vorhanden sind, und brau- 
chen somit nur noch die Punkte in geeigneter Weise darüber set- 
zen. Das "Rß" muß allerdings von vornherein selbst gestaltet wer- 
den (Pixelzeilen-Werte in der DATA-Zeile 100), 


Durch die Hinzunahme der Umlaute und dem "ß" sind uns einige Zei- 
chen verlorengegangen. Mit anderen Worten, folgende Tabelle zeigt 
Ihnen, mit welchen Tasten Sie die neuen Zeichen auf den Bild- 
schirm bringen: 


Taste: ergibt Zeichen: 
[ Rß 
J a 
SHIFT + "*"; Ä 
@ o 
SHIFT + "@":; ö 
"Engl. Pfund": u 
SHIFT + "Engl. Pfund": U 
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Anhang 


A 


A-Bereich 


AV 


BAM 


Bd 


Bu 


B-Bereich 


B-PGM 


B-UP 


B6 


B7 


c 


CLR HOME 


CR 


CRSR 


CRSR DWN 


CRSR RI 


CRSR UP 


A.1l Abkurzungen 


A.1 ABKÜRZUNGEN 


Akku-Register 
Speicherbereich SA0O00-AFFF = #40960-45055 


Ausbauversion!: GV + Speichererweiterung um 
mindestens 8K Byte 


Break-Flag 

Block Avaılable Map 

Baud 

Buchstaben 

Speicherbereich $SBO00-BFFF = #45056-49151 
Basıc-Programm 

Basic-Unterprogramm 

Bit 6 

Bit 7 

Carry-Flag 


Bildschirm loschen und Cursor zur 1. Bild- 
schirmzeichenstelle bringen 


Carrige Return (Wagenrucklauf ) 
Cursor 

Cursor nach unten (down) 
Cursor nach rechts (right) 


Cursor nach oben 
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A.l1 Abkurzungen 


CRÜ - CRF 
D 


DEZ 


GND 


GV 


H 
HEX 


HTGH 


HOME 


IRQ 


1/0 


Kap. 


LOW 


Control Register des VIC 
Dezimal-Flag 
Dezimal 


Drive Operating System; das Betriebssystem, 
welches die Floppy unterstutzt 


engl.: ground, = Masse (Bezugspotential) 


Grundversion (ohne jegliche Speichererweite- 
rung 


siehe HIGH 

Hexadezimal 

HIGH part of address, das wertmaßig hohere 
Byte der aus 2 Bytes bestehenden Adresse 


Beispiel: in $AB32 ist SAB der HIGH-Part 


Cursor wird zur 1. Bildschirmzeichenstelle ge- 
bracht 


Interrupt -Disable-Flag 


siehe unter "Interrupt-Routine" im Anhang B: 
Begriffserklarungen 


Input/Output = Ein-/Ausgabe 

Kapitel 

siehe LOW 

LOW part of address, das wertmaßig niedere 


Byte der aus 2 Bytes bestehenden Adresse 
Beispiel: in S$SAB32 ist $32 der LOW-Part 
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M-Befehle 


M-PGM 


M-UP 


NMI 


PGM 


PSW 


RS 232 


RTTY 


RVS 


ST 


Tab. 


UP 


VIA 


A.1 Abkurzungen 


Maschinensprache-Befehle, zumeist in Mnemonics 
angegeben, wie z.B.: LDA #544 = Lade Register 
A (Akku) mit dem Wert $44 


Maschinensprache-Programm (beim VC-20 fur den 
Mikroprozessortyp 6502) 


Maschinensprache-Unterprogramm 

Negativ-Flag 

Non Maskable Interrupt;: siehe unter "Inter- 
rupt-Routine” im Anhang A.2: Begriffserklarun- 
gen 


Programm 


Programm-Status-Wort; siehe Begriffserklarung 
ın Anhang A.2 


siehe unter "V,24-Schnittstelle"” im Anhang B: 
Begriffserklarungen 


Funk fernschreiben 

REVERS = Zeicheninvertierung; ON=Ein, OFF=Aus 
siehe 

Seite 

Status 

Tabelle 


Unterprogramm; steht auch in Verbindung mit 
CRSR UP (Cursor nach oben) 


Overflow-Flag 


Versatile Interface Adapter (6522); siehe 
weiter Erlauterung in Anhang A.2 
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A.1 Abkurzungen 


VIC 


Zi 


ZL 


#5 


#SKK 


SHH 


SHHLL 


SLL 


$77 


Video Interface Chip (6561): siehe weıtere Er- 
lauterungen in Anhang A.2 


siehe unter "V.24-Schnittstelle” im Anhang A.2: 
Begriffserklarungen 


Wagenrucklauf 
Zero-Flag 
Zitfern 

Zei lenvorschub 


steht vor eıner Dezimalzahl zwecks Unterschei- 
dung von einer Hexadezimalzahl 


steht vor einer Hexadezimalzahl, um diese als 
Inhalt zu kennzeichnen (sie konnte ja auch die 
Bedeutung einer Adresse haben) 

heißt: eines 
Bytes 


beliebige Konstante als Inhalt 
steht vor einer Hexadezimalzahl zwecks Unter- 
scheidung von einer Dezimalzahl 

das hoherwertige Byte einer Adresse (H=HIGH) 
bezeichnet eine beliebige Adresse: HH steht 
fur hoherwertiges Byte (H=HIGH), LL steht fur 


niederwertiges Byte (L=LOW) 


das niederwertige Byte einer Adresse (L=LOW) 


Zero-Page-Adresse:; $7ZZ entspricht in der Nota- 
tion SHHLL der Adresse 50072 


GV + 3K-Speichererweiterung ($0400-0FFF) 


GV + 8K-Speichererweiterung (52000-3FFF) 
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A.1l Abkurzungen 


16K-V GV + 16K-Speichererweiterung (S2000-5FFF) 


Z4K--V GV + 24K-Speichererweiterung (S2000-7FFF) 
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A.2 Begriffserklarungen 


A.2 BEGRIFFSERKLÄRUNGEN 


A/D-Wandler 


Als A/D-Wandler bezeichnet man ein Bauteil, das eine analoge Gro- 
Re in eine digitale Große umwandelt (konvertiert). Der VIC 6561 
(Video-Interface-Chip) im VC-20 besitzt zwei integrierte A/D- 
wandler, die analoge Spannungsgroßen zwischen 0 Volt und 5 Volt 
in digitale Großen zwischen #255 und O0 umwandelt. Die digitali- 
sierten Großen konnen in den Kontrollregistern CR8 (Adresse 
$9008=#36872) und CR9 (Adresse $9009=#36873) des VIC abgelesen 
werden. 


1 2 3 4 5 Upotx(v) 


Bild A.2.1: A/D-Wandler 


Die graphische Darstellung (Bild A.2.1) zeigt, daß eine lineare 
Umwandlung nur zwischen 2 Volt und 4 Volt gegeben ist. Der Pro- 
grammierer sollte das beachten und in seinem Programm beruck- 
sichtigen oder aber die Hardware entsprechend dimensionieren, 
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A.2 Begriffserklarungen 


Basic-Loader 


ist ein Basic-Programm, welches im wesentlichen dazu dient, ein 
.darin enthaltenes Maschinensprache-Programm in einem zumeist vom 
Benutzer frei wählbaren Speicherbereich zu generieren (s. Kap. 
5.2 "Ein spezieller Basic-Loader"). 


Basic-Token siehe Token 


Baudot-Code 


international festgelegter 5-Bit-Code zur seriellen Datenubertra- 
gung (s, Bild A.2.2), Als sogenanntes Start-Bit wird eine logi- 
sche 0 gesendet, die den Empfänger veranlaßt, das folgende 5-Bit- 
Datenwort zu empfangen, Nach dem Datenwort muß mindestens 1.5 
Bit lang eine logische 1 als Pause zwischen zwei Datenworten ge- 
sendet werden. 





Pen EIER EIER BBTERTSRFERERREIERREEEEERT 
FEssebenaie jap elo1E1EIUNLIL2 EILIEISTBIETATELEITGLSLNLEITIZT, 























al T Telalelol.T.Tslolılal [517] NERRDEN 
2 ai 
.. 
BaeiE. 
[] Pausenschritt X] Wer da? P Klingel 
® Stromschritt 2 Zitfernumschaltung 
<  Wagenrücklauf rk a Buchstabenumschaltung 
= Zeilenvorschub : Zwischenraum 
Bild A.2.2 


Mechanische Fernschreiber nutzen diese Pause, um das empfangene 
Zeichen abzudrucken oder Befehle wie: 
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A.2 Begriffserklarungen 


WR = Wagenrucklauf 

ZL = Zeılenvorschub 

Bu = Umschaltung in Buchstäbenebene 

Zi = Umschaltung in Ziffernebene etc. 


auszuführen. Eine Parıtatsprufung ist nicht vorgesehen, 


Bildschirm-Code 


Die Inhalte im Video-Speicher werden mittels des Bildschirm-Codes 
gespeichert (s, Anhang H im VC-20-Handbuch), Z2.B. wırd ein großes 
A im Video-Speicher mıt dem Wert 1 codiert. Ist das A dagegen der 
Inhalt eınes Strings oder einer Stringvariablen, so wird es mit- 
tels ASCII-Code mıt dem Wert 65 (s, Anhang J im VC-20-Handbuch) 
codiert. Hilfs-Programme zur gegenseitigen Transformierung beider 
Codes fınden Sie ın Kap. 6.11 "ASCII-/Videocode-Korıvertierung", 


Bildschirm-Speicher s. Video-Speicher 


Bubble--Sort 


Als Bubble-Sort bezeichnet man eın Sortierverfahren, bei dem im- 
mer zwei benachbarte Elemente einer Liste miteinander verglichen 
und gegebenenfalls ausgetauscht werden. Der Bubble-Sort-Algorith- 
mus muß so lange durchlaufen werden, bis alle Elemente der Liste 
in der richtigen Reihenfolge stehen, 


Vorteil: Programme nach dem Bubble-Sort-Verfahren sind einfach 
zu erstellen. 

Nachteil: Das Verhaltnis von Große der Liste zur Laufzeit des 
Programms andert sich quadratisch. Das heißt, fur die 
doppelte Menge von Daten benotigt das PGM die vierfache 
Zeit. 


Default 
ein verdeutschter englischer Ausdruck (wıe so viele!), was so gut 


wie "Standardwert" oder "Ausgangswert, falls sonst nichts angege- 
ben ist" heißt; als einfaches Beispiel kann man hierbei die Aus- 
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A.2 Begriffserkläarungen 


gangswerte, also Default-Werte, von Basic-PGM-Variablen nennen: 
falls nichts von vornherein festgelegt worden ist, erhalten die 
numerischen Variablen den Wert 0 und die Stringvariablen die 


leere Zeichenkette "" 


Deskriptor 


Ein String bzw. eine Zeichenkette wird u.a. mithilfe von 3 Bytes 
identifiziert, welche die Lange und die absolute Anfangsadresse 
der Zeichenkette festlegen! 


1 Byte fur die Lange, 2 Bytes fur die Adresse (L,H) 


Da also nur 1 Byte fur die Lange vorgesehen ist, durfen Zeichen- 
ketten, welche mithilfe von Deskriptoren beschrieben werden (die 
in Basic benutzten String-Variablen beispielsweise), nicht langer 
als 255 Zeichen lang sein, 


Directory Verzeichnis 
Dump Speicherinhalt-Liste 
Expansion-Port 


wird im VC-20-Handbuch als "Speichererweiterungsanschluß” und als 
"Hauptspeicher-Erweiterung" (S. 149, 150) bezeichnet. Die Bele- 
gung dieses Ports bei Draufsicht von außen auf den VC-20 wird auf 
5. 150 (VC-20-Handbuch) gezeigt, 


Farbspeicher 
ist. derjenige Speicherbereich, in dem die Farben jedes Zeichens 
des Video-Speichers eingetragen sind. 


Fur die Versionen GV, sowie ab 8K-V sind das die Bereiche: 


GV und 3K-V: 59600 - 97F9 #38400 - 38905 
ab 8K-V: $9400 - 95F9 #37888 - 38393 
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A.2 Begriffserklarungen 


Eine Berechnungsformel, die den unterschiedlichen Bereichszuwei- 
sungen abhangig vom jeweiligen Speicherausbau Rechnung tragt, 
wird in Kap. 6.3 "Losung des Portabilitats-Problems" angegeben. 
Nur 4 Bits der unteren Bytehalfte werden als Inhalt eingetragen. 
Die Farbwerte entsprechen denen auf der Tastatur angegebenen ab- 
zuglich 1, z.B. ist hier Blau=s6 und Schwarz=0. Die oberen 4 Bits 
weisen Zufallswerte auf, so daß diese - sofern man die korrekten 
Werte des Farbspeichers in einem Algorithmus verwenden mochte - 
mittels AND 15 weggefiltert werden mussen, 

will man also z.B. den korrekten Farbwert des 1. Zeichens auf dem 
Bildschirm bei einem VC-20 in GV ermitteln - #38400 ist die Farb- 
speicherzelle zur Video-Speicherzelle #7680, #38401 zu #7681 etc. 
- so geschieht dies einfach durch! PEEK(38400) AND 15. 


File Datei 


Fließkomma-Zahl s, Gleitkomma-Zahl 


Gleitkomma-Zahl 


auch als Fließkomma-Zahl bezeichnet: beim VC-20 eine mittels 5 
Bytes festgelegte Zahl zwischen -1.70141%10°38 und 
+1.70141%10°38, An sich umfassen 5 Bytes lediglich einen Zahlen- 
raum von 2”(5%8) = 2°40 = 1.0995%10°12. Dies hieße jedoch, man 
hatte eine Genauigkeit von 11 Stellen. Auf diesen Stellengenauig- 
keitsanspruch verzichtet man hier jedoch und knappst einige Bits 
von den 40 zur Verfugung stehenden ab, um den Exponenten in einem 
großeren Bereich variieren lassen zu konnen (-38 bis +38), 

An dieser Stelle sollte auch erwahnt werden, daß Rundungstehler 
bei Addition bzw. Subtraktion auftreten, die sich insbesondere 
bei Berechnungen in Schleifen zu großeren Resultatungenauigkeiten 
aufschaukeln konnen. Pruf£fen Sie es selbst nach, ındem Sie einge- 
ben: PRINT 100-100.1 (Return). 

Als Ergebnis erhalt man -.099999994, 
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Hexadezimalzahl 


Dezimalziffern konnen Werte von Ü bis 9 annehmen, Hexadezimalzif- 
tern dagegen Werte von 0 bis 15: um jedoch die zweistellige 
Darstellung der Ziffern zwıschen 10 und 15 zu vermeiden, ordnet 
man dıesen die Buchstaben A bis F zu; woran man sıch beim Umgang 
mit Hexadezimalzahlen gewohnen muß, ıst, daß im Gegensatz zu De- 
zımalzahlen nicht die 2, Stelle mit 10, die 3. Stelle mit 100 
etc, sondern die 2, Stelle mit 16, die 3, Stelle mit 256 und die 
4. Stelle mit 4096 gewichtet werden, 


HIGH--Byte 


hoherwertiges Byte: z.B. ıst in der Adresse $12AB das HIGH-Byte: 


sı2 


HOME Cursor zur 1. Bıldschirmzeichenstelle 


Integer-Zahl 


an sich jede ganze Zahl, hier beim VC-20 speziell Zahlen zwi- 
schen -32768 und +32767. 

Der Zahlenraum ıst somit 65536 = 2°8 * 2°8 und benotigt nur 2 
Bytes zur eindeutigen Identifizierung jeder Zahl in diesem Be- 
reich, 


Int.eerface 


Ein verdeutschter englıscher Ausdruck: ubersetzt heißt er zwar 
"Schnittstelle", hat aber nicht die gleiche Bedeutung wie dieser 
Ausdruck. Denn beim Interface handelt es sıch nicht selten um eı- 
ne Hardware-Einrichtung, die zwei verschiedene Schnittstellen 
(siehe "Schnittstelle") funktionsfahig verbindet. 


interrupt gesteuert. 


Die zweı im VC-20 eingebauten I/O-Bauelemente, VIA 6522, weisen 
mannigfaltige (VIA = Versatile Interface Adapter) Moglichkeiten 
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A.2 Begriffserklarungen 


der Ein-/Ausgabesteuerung auf. U.a. hat jeder von ihnen zwei 
Timer und spezielle Register, welche nach entsprechender Program- 
mierung den Sprung zur Interrupt-Routine erzwingen kornen, wenn 
dıe Timer abgelaufen sind oder vorher festgelegte Signale (z.B. 
Anstieg von "0" auf "1") auf den Steuerleitungen anfallen, Pro- 
gramme, dıe sich dieser Möglichkeiten bedienen, nennt man inter- 
rupt gesteuert, 


Interrupt-Routine 
Routinen, welche nach anfallender Interrupt-Anforderung von 


selbst angesprungen werden. Beim Mikroprozessor des VC-20, dem 
6502, gibt es 3 Hierarchiestufen von Interrupt-Anforderungen: 


Einsprungadresse: 
hochste Prioritat: RESET SFFFC,SFFFD 
mittlere Priorität: NMI SFFFA,SFFFB 
unterste Prioritat: IRQ SFFFE,SFFFF 


Wahrend RESET und NMI (Non-Maskable Interrupt) sich per M-PGM 
nicht verhindern lassen, gibt es fur IRQ die M-Befehle SEI, CLI, 
PLP zur EIN/AUS-Schaltung der IRQ-Verhinderung. 


Speziell auf den VC-20 bezogen: 

RESET laßt sich hardwaremaßig einfach durch Kurzschließen ir- 
gendeiner RESET-Leitung mit einer GND-Leitung erzeugen oder aber 
softwaremaßig durch Sprung in die in den Adressen SFFFC,SFFFD 
(L,H) angegebene Adresse: SFD22 = #64802 

Die Eingabe von SYS 64802 entspricht also dem Einschalten des VC- 
20 mit dem Unterschied, daß die vorher gespeicherten Daten im 
RAM-Arbeitsspeicher erhalten bleiben (bis auf 2 Bytes, s. Kap. 
4.5 "VC-OLD: NEW ruckgangig machen"), 

Da allerdings der Programmierer ab und zu wegen totaler PGM- 
Aufhangung gar nicht mehr den Befehl SYS 64802 einzugeben in der 
Lage ist, empfiehlt es sich, einen RESET-Schalter anzubringen (s, 
unter "RESET"). 


NMI springt auf diesbezugliche Anforderung in eine Routine ab in 
SFFFA,SFFFD angegebene Adresse $FEA9, von wo ab per M-Befehl SEI 
der IRQ ausgeschaltet wird und in die in $0318, 50319 stehende 
Adresse $FEAD gesprungen wird. Der letztgenannnte vektorisierte 
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Sprung laßt sich vom Programmierer umleiten, weil die Zellen 
S0318,50319 zum RAM-Bereich gehoren. 


IRQ ist der bei den Maschinensprache-Programmierern wohl am hau- 
figsten verwendete Interrupt, weil er nıcht nur per M-Befehle 
SEI, CLI, PLP steuerbar ıst, sondern auch fur die //0-Steuerung 
eingesetzt wırd. Die Einsprurgadresse der IRQ-Routine befindet 
sich in SFFFE,SFFFF: SFF72. Ab SFF72 werden zusatzlich A,X,Y 
gerettet (von selbst wird namlich schon die Rucksprungadresse und 
das Statusregister auf den Stack gelegt) und das BRK-Flag des 
geretteten Statuswortes uberpruüft., 

Ist das BRK-Flag gesetzt, wird zur in $0316, $0317 stehenden Ad- 
resse, also SFED2 gesprungen, im anderen Fall zur in $0314, 50315 
stehenden Adresse SEABF. Beide Vektoren lassen sıch andern, weil 
sie im RAM-Bereich liegen (s. Anhang A.3 unter $0314), 


Keller RAM-Speicherbereich $0100-501FF 


Link 


Vektor zum Zweck einer Verbindung bzw. Verkettung von logisch zu- 
sammengehorigen Daten, z.B. die ersten 2 Bytes einer Basic-Zeile, 
welche eın Link zum Anfang der Basic-Folgezeile darstellen. 


LOW-Byte 


niederwertiges Byte; z.B. ist in der Adresse $12AB das LOW-Byte: 
SAB 


Offset 


heißt so viel wie Differenzwert in Verbindung mit einem Bezugs- 
wert, 

Beispiel: die Adresse $2014 sei der Bezugswert, so ist Y=5 der 
Offset fur die Adresse $2019, wenn man die Adresse $2019 aus- 
druckt durch $2014+Y, 
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Page 

Ein 256 Bytes umfassender Speicherbereich von S$HHOO-HHFF (HH ist 
ein beliebiges hohere Byte). Zum Beispiel nimmt dıe Page $21 den 
Speicherbereich $2100-21FF ein. 

Pixel 

Ein Buchstabe, eine Zahl oder ein Graphikzeichen wird auf dem 
Bildschirm durch eine Zusammenstellung von eınzelnen Punkten, den 


Pixels, dargestellt. Ebenso druckt ein sogenannter Matrixdrucker 
einzelne Pixels aus, um Zeichen auf Papier darzustellen. 


Pointer s. Vektor 


Programm-Status-Wort 


ist das Register eines Mikroprozessors, welches samtliche Flags 
enthalt; beim VC-20-Prozessor 6502 sind dies: 


Bit 0: Carry-Flag (C) 

Bit 1: Zero-Flag (2) 

Bit 2: Interrupt-Disable-Flag (I) 
Bit 3: Dezimal-Flag (D) 

Bit 4: Break-Flag (B) 

Bit 5: bleibt unbenutzt 

Bit 6: Overflow-Flag (V) 

Bit 7: Negativ-Flag (N) 


Z.B. wird das Zero-Flag gesetzt, wenn nach einer Rechenoperation 
im Akku-Register das Ergebnis $00 steht. Der jeweilige Status der 
Flags wird zur Realisierung von M-Programmverzweigungen benutzt. 
Beim Befehl BNE (Branch, if Not Equal Zero) z.B. wird nur dann 
gesprungen, wenn das Zero-Flag nicht gesetzt ist. 


288 


A.2 Begriffserklarungen 


relocatable 


oft benutztes Wort in Verbindung mit M-PGM’en und heißt: frei 
verschiebbar. 

Ein M-PGM ist relocatable, wenn es nicht vom absoluten Standort 
im Speicher abhangig ist. Es sind darin also z.B. keine absoluten 
Sprunge vorhanden. 


RESET 


ist eine wichtige Mikroprozessor-Funktion, bei der der Mikropro- 
zessor in einen definierten und funktionsfahigen Ausgangszustand 
(zurüuck-)versetzt wird. Beim Einschalten der Mikroprozessor- 
Stromversorgung tritt also RESET auf jeden Fall in Aktion. Die 
hardwaremaßige Initialisierung des Mikroprozessors ist aber nicht 
die einzige Aufgabe von RESET, denn damit wurde noch lange nicht 
ein kompliziertes Gebilde wie der VC-20 (dessen Herzstuck zwar 
der Mikroprozessor ist) zum Funktionieren gebracht werden. Deswe- 
gen erfullt RESET noch eine weiter entscheidene Aufgabe. Es wird 
namlich gleich im Anschluß an die hardwaremaßige Initialisierung 
ein Sprungbefehl ausgefuhrt, ein Sprung zu einer vom Hersteller 
des Mikroprozessors festgelegten Adresse. Speziell beim VC-20- 
Mikroprozessor 6502 ist dieser Sprung ein indirekter zu einer 
Adresse, welche in den Adressen S$FFFC, SFFFD (L,H) steht. 

Beim VC-20 ist die Einsprungadresse $FD22 = #64802. Sie initiali- 
sert eine großere Anzahl von Zero-Page-Werten, Links, Vektoren 
etc, und programmiert die I/O-Bausteine VIA 6522 derart, daß ein 
vernunftiger Betrieb von vornherein moglich ist (z.B. muß ja die 
Tastaturbetatigung fur den VC-20 "verständlich" sein). 

Die RESET-Routine kann hardwaremaßig auch durch Kurzschließen von 
einem RESET-Ausgang und GND (Masse) oder softwaremaßig durch Ein- 
gabe von SYS 64802 angesprungen werden. Da letzteres nur dann 
moglich ist, wenn der VC 20 uberhaupt noch uber die Tastatur et- 
was annehmen kann (was ja beim "Absturz" des Systems in den sel- 
tensten Fallen noch drin ist), empfiehlt sich grundsatzlich der 
hardwaremaßige Einsprung, z.B. mittels eines Tastschalters zwi- 
schen! 


einem der RESET-Pins: 
Pın X der Hauptspeicher-Erweiterung (s. S. 150 im Handbuch) 
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od. Pin 6 der seriellen Ein-/Ausgabe (s. 5, 151 im Handbuch) 
od. Pın 3 des User-Ports (Anwender Eın-/Ausgabe) (s. 5. 152 im 
Handbuch ) 


und eınem der GND-Pıns: 

Pin A der Hauptspeicher-Erweiterung 
od. Pın 2 " de ” 
od, Pin 1 
od. Pin 22 
od. Pin 2 des Audio/Video-Ausgangs (s, S. 151 im Handbuch) 
od. Pin 2 der seriellen Eın-/Ausgabe 
od. Pin A des Datassettenports (s,. 5. 151 im Handbuch) 

1" ei 
A 
N 
] 
| 


od. Pın 


od. Pın des User-Ports 
od. Pin = “ : 

od. Pın 

od. Pin > 


Vorsicht! Fın Il des User-Ports ist kein GND-Pin (Drucktehler ım 
Handbuch! ), 

Eine sınnvolle Utility ın Verbindurig mit RESET ist das Programm 
VC-OLD (s. Kap. 45), mittels der es moglıch ıst, ein Basıc-PGM 
auch nach dessen Absturz zu retten (falls nıcht versehentlich in 
das PGM selbst hıneingePOKEd wurde), 


Routine zumeist als UP verwendetes PGM 
RS232- Schnittstelle siehe V.24-Schnittstelle 
Scanner-Routine siehe Anhang A.3, Adr. $0073-008A 
Schnittstelle 


Eın gedachter oder wırklich realisıerter Schnitt (z.B. in Form 
eines Steckers) zumeist in einer Datenubertragungsstrecke. Zu 
einer ausreichenden Schnittstellenbeschreiburg gehort die exakte 
Erklarung uber die Anzahl der Leitungen, deren Spannungen/Strome 
und deren Signalbedeutungen an dieser "aufgeschnittenen” Stelle. 
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SPACE Leerzeichen (-taste) 


Stack 

speziell beim VC-20 (6502-Prozessor): RAM-Speicherbereich $0100- 
SO1FF 

Stapel siehe Stack 


String Zeichenkette 


String-Variable 


Variable, der eine Zeichenkette zugeordnet wird. 


Timer 


Zeituberwachung; es ist eine softwaremaßig realisierte "Eieruhr", 
Man stellt sie auf eine bestimmte Zeit ein. Wenn sie abgelaufen 
ist, geht es im PGM in einer vorher festgelegten Weise weiter. 
Ein typischer Basic-Timer ist z.B.: 


FOR I=1 TO N*1000:NEXT 


um das PGM an dieser Stelle ca. N Sekunden verweilen zu lassen. 


Token 


ein Basic-Befehl, z.B. PRINT wird nach Eingabe nicht in Form von 
P_R_I_N_T, also mit 5 Zeichen, abgespeichert, sondern nur mit ei- 
nem Zeichen, bei PRINT mit $99=#153. Dieses eine Byte zur Inden- 
tifizierung des Befehls wird als Token bezeichnet. Das Verfahren 
spart Speicherplatz ein und vergrößert überdies die Geschwindig- 
keit der Basic-Programme. Eine Liste aller Tokens befindet sich 
im Programmier-Handbuch S. 178, 
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USER-Port 


Der USER-Port ist eines der "Tore" des VC-20 zur Außenwelt. Da im 
VC-20-Handbuch eıne teıls talsche teils unvollstandige Aufstel- 
lung dessen Pins und ep gezeigt wird, soll an dieser 
Stelle mittels Bild A.2.3 eine weitere eingebracht. werden. 


1234567891012 


ABCDEFHJKLMN 


PINn | Bezeichnung rın Bezeichnung 


GND 

+5V 

RESET 

PA2 (JOYO) 

PA3 (JOY1) 

PA4 (JOY 2) 

PA5 (JOY 4 / LIGHT PEN). 
PA6 (KASS.-SCHALTER ) 
PA 7 

9V AC 

IV AC 

GND 


1 
2 
3 
4 
5 
6 
7 
8 
9 


ZzZzTrTrX-Iinmonu> 





Bild A.2.3: USER-Port 


Die hier aufgefuhrten Port-Leitungen (PA’s, PB’s und CB’s) fuhren 
zum VIA #1 des VC-20, der im Adreßbereich $9110 bis S911F liegt. 
Die Bezeichnung JOY 4 steht fur Feuerknopf des Joysticks, 


Utility Betriebssystem-Zusatzprogramm 
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Vektor 


es gibt auch andere Begriffe dafur, z.B. Pointer, Zeiger etc, Ein 
Vektor besteht in der Regel aus 2 Bytes. Dieses Paar ist nichts 
weiter als eine Adresse, die im Programm den Zweck haben, Sprunge 
hierdurch indirekt festzulegen oder auf hierdurch adressierte Da- 
ten zugreifen zu konnen. 


VIA 


Versatile Interface Adapter (6522); es gibt im VC-20 derer zweı 
Exemplare: 


VIA #1 im Adreßbereich $9110 - S911F 
VIA #2 ie $9120 - $S912F 


VIA #2 wird vornehmlich zur Tastaturabfrage verwendet, wogegen 
VIA #1 fur die eigene Programmierung nahezu frei verfugbar ıst, 


VIC s. Video-Chip 


Video-Chip 


Der Video-Chip ıst dasjerige Bauteil eines Rechners, welches un- 
abhanging vom Mikroprozessor die Zeichen im Videospeicher in 
Verbindung mit dem Farbspeicher ın fur ein Fernsehgerat bzw, 
Monitor verstandliche Signale umwandelt und sie diesen Geraten 
zuganglich macht. Beim VC-20 heißt dieser Chip VIC (Video Inter- 
face Chip) 6561. Ebenfalls unabhangig von der Prozessorleistung 
vermag er Tonsignale abzugeben sowie auch Lichtgriffel- und Po- 
tentiometersignale aufzunehmen. Weitere Einzelheiten entnehme man 
diesbezuglich dem Anhang A,5, Tabelle A.5-10. 


Video-Speicher 
ist derjenige Speicherbereich, in dem die Zeichen des gegenwarti- 


gen Bildschirms eingetragen sind. Hierbei sind dıe Zeichen nicht 
im ASCII-Code, sondern in einem speziellen Video-Code (s.S. 
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141,142 im Handbuch) eingetragen, was recht nutzlich ist, weil 
dadurch samtliche 256 Moglıchkeiten fur die Codierung eines Zei- 
chens ausgeschopft werden. Umrechnungs-Routinen zwischen beiden 
Codes untereinander finden Sie in Kap. &.1l. 

Das Pendant zum Video-Speicher ist der Farbspeicher, in dem ana- 
log zu den Zeichen im Video-Speicher deren Farben eingetragen 
sind. 

Fur die Versionen GV, sowie ab &K-V sind das die Bereiche: 


GV und 3K-V:! SIEOO - 1FF9 #7680 - 8185 
ab 3K-V! s1000 - 11F9 #4096 - 4601 


Es gıbt jedoch noch # weitere Moglichkeiten (s. Kap. 6.4 "Sei- 
tensprung" sowie Tabelle A.5-6). 

Eine Berechnungstormel, die den unterschiedlichen Bereichszuwei- 
sungen abhangıqg vom jeweiligen Speicherausbau Rechnung tragt, 
wird ir Kap. b.3 "Losung des Portabılitats-Problems" angegeben. 


V.24- Schnittstelle 


V‚z24 ıst die Kurzbezeichnung fur eine CCITT-Emptehlung, die zum 
Ziel hat, weltweit dıe Kompatibilitat von Endgeraten fur den Da- 
tenaustausch uber Fernsprechnetze zu garantieren, Hinter der 
Kurzbezeichnung RS 232 verbergen sich dıe gleichen Schnittstel- 
lenregeln, Wegen der weltweiten Unterstutzung dieser Empfehlung 
wird deren Realisierung ın Form von Betriebssystemroutinen (wie 
auch beim VC-20) nıcht nur zur Datenubergabe zu einem Modem (und 
damit zum Fernsprechnetz), sondern auch zu anderen Peripheriege- 
raten wie z.B. zu Druckern eingesetzt. 

Nach der neueren Norm DIN 150 7498 fur dıe modellhafte Beschrei- 
bung der Kommunikatiorı zwischen ottenen Systemen ıst die V.24- 
Schnittstelle der Schicht. 1 (untersten Schicht) zuzuordnen, 


Zeichengenerator 


Derjenige Speicherbereich, der fur die Darstellung jedes Zeichens 
die datur notwendige Information enthalt, namlich deren Anordnung 
der eınzelnerı Pixelpunkte, Da ein Zeichen beim VC-20 durch eine 
8x8 Pixelmatrix bestimmt ist, sind demzufolge 8 Bytes fur ein 
Zeichen notig. Denn jedes Bit dieser 8 Bytes kann uber das Vor- 
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handen- oder Nicht-Vorhanden-Sein eines der 64 Pixels entschei- 
den, Bit=1 heißt! Pixel ist vorhanden, Bit=0 heißt: Pixel nicht 
vorhanden. Da beim VC-20 128 Zeichen im Großschrift/Graphik-Mo- 
dus, 128 im Klein-/Großschrift-Modus, sowie alle diese im Revers- 
Modus dargestellt werden konnen, sind hierfur (128+128%2 * & = 
4096 Bytes ertorderlich. Diese liegen beim VC-20 im Bereich 
S8000-8FFF und sind "von Hause aus” ROM, konnen aber ohne große 
Muhe im RAM-Bereich adressıert werden, wenn man die ersten vier 
Bits des VIC-Kontrollregisters CR5 (Adresse 59005 = #36869) ver- 
andert (siehe hierzu Tabelle A.5-8), 


Zeiger s. Pointer 


Zero-Page 


ist korrekt definiert als der Speicherbereich $0000-S00FF, d.h. 
das HIGH-Byte ist $00; jedoch wird beim VC-20 dieser Begriff zu- 
meist fur den Bereich $0000-$S00FF und $0200-$S03FF benutzt, weil 
sich in diesem RAM-Bereich die in der Einschaltphase (bzw. nach 
RESET) festzulegenden und desweiteren dynamisch änderbaren Be- 
triebssystem- bzw. Interpreter-Werte befinden, 


[587 
oO 
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HEX 
0B 
oc 


0D 


DE 


2B,,2C 


2D,2E 


DEZ 
11 
12 


13 


14 


43,44 


45,46 


A.3 ZERO-PAGE-ADRESSEN 


Vektor auf Input-Puffer 
Flag fur Dimensionierung bzw. Funktıonen 


SFF fur eingelesenen String 
s00 fur eıngelesenen numerischen Ausdruck 


S80 fur zu bearbeitenden Integer-Wert 
= $S00 fur zu bearbeitenden Gleitkomma-Wert 


Vektor auf Basıc-Anfang 
Default-Werte: 


GV: $01, 10 = #1, 16 
3K-V: $01, 04 = #1, 4 
ab 8K-V: $01, 12 = #1, 18 


Beispiel: bei einem VC-20 ın Grundversion ent- 
halt die Speicherzelle #43 den Wert 1 und #44 
den Wert #16 unmittelbar nach dem Einschalten 
oder nach RESET (falls nıcht durch eingsteckte 
Module das Standard-VC-20-Betriebssystem umgan- 
gen wırd, mehr daruber ım Kap. 6.5 "Autostart 
fur Basic- und Modulprogramme"). 

Das heißt, die Basic-Anfangsadresse errechnet 
sich zu: 

1 + 16%256 = 4097 (PEEK(43)+PEEK (44)*256) 


Vektor auf Variablen-Anfang 

Wenn kein Programm geladen ist, hat dieser Vek- 
tor den Wert des Vektors $2B,2C zuzuglich 2, 

In diesem Fall hat z.B. bei einem VC-20 mit 8K- 
Byte-Zusatzspeicher die Speicherzelle #45 den 
Wert 3 und #46 den Wert 18, 


HEX 


2F,30 


31,32 


33,34 


33,36 


39,3A 


3B ,3C 


3r- 
40 


41- 
42 


DEZ 


47,48 


49,50 


>1,52 


33,06 


57,58 


59,60 


64 


65- 
66 
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Vektor auf Feld-Anfang 

Wenn keine Felder ın einem Basıc-Programm be- 
nutzt werden, so entspricht dieser Vektor dem 
Vektor 52D,ZE. 


Vektor auf Feld-Ende 

wenn keine Felder in einem Basıc-Programm be- 
nutzt werden, so entspricht. dıeser Vektor dem 
Vektor SZ2D,ZE. 


Vektor auf untere Grenze des Zeichenspeichers 


Vektor auf obere Grenze der zuletzt abgespei- 
cherten Zeichenkette 


Vektor aut totale obere Grenze des Zeichenspeil- 
chers = obere Grenze des Basic-Bereichs 
Default-Werte:; 


GV! S00, 1E = #0, 30 
3K-V: S00, IE = #0, 30 
8K-V: 500, 40 = #0, 64 
16&K-V: 500, 60 = #0, 96 


2AAK-V: 500, 80 = #0,128 


Beispielsweise enthalt die Speıcherzelle #56 
eines um 16K-Byte erweiterten VC-20 den Wert #96. 


Momentäane Basıc-Zeilennummer (L,H) 
Zeılennummer = PEEK(57)+256%PEEK(58) 


Vorhergehende Basic-Zeilennummer (L,H) 
(Berechnung siehe daruber ) 


DATA-Zeilennurmer (L,H) 

Dies ist die Nummer derjenigen DATA-Zeile, aus 
der Daten entnommen werden (READ-Befehl) 

Vektor auf das Komma vor dem’ nachsten Datum der 


ın S3F,40 angegebenen DATA-Zeıle 
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HEX 


45,46 


47,48 

49,4A 

61- 
68 


69- 
6E 


79= 


DEZ 


69,70 


71,972 
73,74 
I7- 

104 


105- 
110 


115- 
138 


Momentaner Varıablername 
(Kodierung s. Kap. 2.1 "Speicherorganisation bei 
einem Basic-Programms" ) 


Vektor auf momentane Variable 


Vektor auf momentane Laufvariable (FOR-NEXT- 
Befehl) 


Fließkomma-Akku #1 


Fließkomma-Akku #2 


Scanner-Routine: dieses kleine Unterprogramm 
liegt eigentlich im ROM-Bereich zwischen den 
Adressen $SE387 und SE39E, wird aber wahrend der 
RESET-Routine in den Bereich $0073-008A kopiert. 
Abgesehen davon, daß nur dort diese Routine 
funktioniert, wird wegen Ihrer "Lage" ım RAM-Be- 
reich beim "Abgreifen"” (Scannen) eine indirekte 
Adressierung eingespart. Die Register X und Y 
werden also nicht angetastet, brauchen demnach 
nicht gerettet werden. Die Scanner-Routine (s. 
Bild A.3-1) vergroßert den 


0073 INC $7A 
0075 BNE $0079 
0077 INC $7B 
0079 LDA S$HHLL 
007C CMP #$3A 
007E BCS $008A (Bild A.3.1) 
0080 CMP #820 
0082 BEQ $0073 
0084 SEC 

0085 SBC #530 
0087 SEC 

0088 SBC #$DO 
008A RTS 
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Vektor S$7A,7B - die Adresse SHHLL also - um 1. 
greift den zugehorigen Wert ir Zeıle 50079 ab 
und wertet ihn in den folgenden Zeilen derart 
aus, daß dıese Routine verlassen wırd mıt:! 


Carry-Bit (C) nıcht gesetzt: 
der Inhalt des abgegriffenen Bytes liegt im Wer- 
tebereich $30-39 (ASCII-Code fur Zıftern 0-9) 


Carry-Bit gesetzt: 
Gegenteil von oben 


Zero-Bit (Z) gesetzt: 

das abgegriffene Byte hat den Wert S00 oder 53A 
(Doppelpunkt), was auf ein Befehlsende bei Basic 
hinweist 


Zero-Bit nicht gesetzt: 
Gegenteil von oben 


Falls Sie allerdings diese Routine fur Ihre 
Zwecke ausnutzen sollten, mussen Sie peinlich 
genau auf die Wiederherstellung des Vektors 
S7A,7B, also die Adresse SHHLL (s. Bild A.3-1), 
achten, sonst gibt’s "SYNTAX ERROR", 

Die Scanner-Routine wird ebenso haufig ab Adres- 
se 50079 = #121 mittels JSR 50079 benutzt, um 
das momentane Zeichen in Adresse $HHLL in den 
Akku zu holen und die C- und Z-Flags in der be- 
schriebenen Weise zu setzen. 


Test-Beispiel: 

Die Eingabe: SYS 121:PRINT PEEK(780) (Return) 
wirft den Dezimalwert 58 aus. Das entspricht 
dem Wert $3A, der dem Doppelpunkt zwıschen den 
beiden Befehlen entspricht. Da ja nach einem 
SYS-Befehl der Akku-Inhalt uber die Adresse #780 
zur Basic-"Welt" gelangt, heißt das: nachdem ein 
Basic-Befehl zwecks Bearbeitung interpretiert 
worden ist, ist der Vektor $7A,7B auf das diesem 
Befehl unmittelbar folgende Zeichen gerichtet. 
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HEX 


7A- 


7B 


AU- 


A2 


BZ- 


C6 


6 


BJ 


DEZ 


122- 
123 


160- 
162 


178- 
179 


198 


199 


Vektor auf eınzulesendes Byte ırı der Scanner- 
Routine $573-8A 


3-Byte-Zahler (VC-Uhr), welcher jede 1/60 s um | 
weitergezahlt wird; AZ enthalt das niederwertig- 
ste Byte 


Vektor auf Anfangsadresse des Kassettenpufters 
(Default: SOIIC = #828) 


Welche Taste gedruckt? (s. Tab. A.5-9) 

Ott ıst es ın eınem Programm mehr von Bedeut.ung, 
die momentan gedruckte Taste zu berucksichtigen, 
Wırd sıe wıeder losgelassen, soll dıe Tatsache, 
daß sıe vorher ırgendwann mal gedruckt worden 
ı5t, keine Rolle mehr spielen. Mıt GET und INPUT 
laßt sıch eıne solche Steuerung nıcht realisie- 
ren, weıl beide Funktionen dıejenigen Zeichen 
annehmen, welche ım Tastaturpuffer zwıschenge- 
speichert sind, also auch die in der Vergan- 
geriheit eingegebenen, 

Mittels PEEK(197) laßt sıch muhelos bei Zuhilfe- 
nahme der Tabelle A.5-9 dıe momentan gedruckte 
Taste ıdentifizıeren und verwerten, Der Inhalt 
#64 steht dafur, daß zur Zeit (ausgenommen dıe 
CTRL-,  CBM- und SHIFT-Tasten) keine Taste ge- 
druckt ist. Die Zustande Gedruckt/Nicht gedruckt 
der CTRL-, CBM und SHIFT-Tasten kornen uber 
PEEK(653) (siehe dort) ausgelesen werden, 


Anzahl der noch abzuarbeitenden Zeichen im Kas- 
settenpuffer (maximal so viele, wıe ın Adresse 
50289 = #649 vom Benutzer festgelegt wird, 
allerdings nicht mehr als #10, siehe auch 
50277--0280) 


RVS-Flag; Bit 1 gesetzt (=$02), wenn RVS ON 
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HEX 


CB 


CD 


CF 


D1- 


D3 


D6 


F3- 
F4 


FB- 
FE 

0277- 
0280 


204 


205 


207 


209- 
210 


211 


N 
- 
wu 


243- 
244 


231= 
254 


631- 
640 


A.3 Zero-Page-Adressen 


gleiche Bedeutung wie SC5: fur den Benutzer ha- 
ben demnach $C5 und $CB scheinbar die gleiche 
Bedeutung. Im VC-20-Betriebssystem dient. jedoch 
die eine Zelle als Zwischenpuffer fur die an- 
dere, damit es erkennen kann, ob inzwischen eine 
andere Taste bzw. gar keine gedruckt ist. 


=1 : Cursor AUS bei GET 
=0 : Cursor EIN bei GET 


Cursor-Blinkzahler 
Flag fur Cursor in RVS-Darstellung 


Vektor auf Anfang derjenigen Zeile im Video- 
Speicher, in der sich der Cursor befindet 


Offset (0-87) bzgl. des Vektors S$D1,D2: d.h. 
dieser Wert ist gewissermaßen ein Erganzungsvek- 
tor, der auf die Position des Cursors ın der 
durch $D1,D2 angegebenen Zeile zeigt. 


Anzahl der Zeichen in Zeile, inder sich der 
Cursor befindet 


Zeile (0-22), in der sich Cursor befindet 


Vektor auf Anfang derjenigen Zeile ım Farbspei- 
cher, ın der sich der Cursor befindet. 

(vgl. $D1,D2): die Routine SEAB2-EABE berechnet 
SF3,F4 aus $D1,D2 


frei verfugbar 


Tastaturpuffer; das erste abzuarbeitende Zei- 
chen ist in 50277 (siehe auch $C6 und $0289). 

Oft werden diese Speicherzellen benutzt, um 
Tastatureingaben zu simulieren, indem man ein- 
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HEX 


0281- 
0282 


0283- 
0284 


DEZ 


641- 
642 


643- 
644 


fach ab #631 darin das hineinPOKEd, was manı 
sonst in die Tastatur hineintippen wurde. Aller- 
dings muß man bei diesem Verfahren noch zusatz- 
lich in die Zelle #198 die Anzahl der eınzuge- 
benden Zeichen hineınPüKEn, 

Beispielsweise soll das Byte #SKK ın den Tasta- 
turputfer gelegt werden. Eine M-PGM-Routine 
konnte so aussehen: 


LDA #SKK 

LDX SC6 

CPX 50289 

BCS (Mark) 

STA $0277,X 

INC SC6 
Mark: RTS 


Wenn das Zeıchen nicht abgelegt werden konnte, 
weil der Tastaturpuffer bereits voll ist, wırd 
obige Routine mit gesetztem Carry-Bıt verlassen, 


Das entsprechende Basıc-Analogon zu obıger Rou- 

tıne konnte sein: 

1000 C=0:X=PEEK(198):IF X>=PEEK(649) THEN C=1: 
RETURN 

1010 POKE 631+X,(DEZ-Wert von SKK):POKE 198, 
PEEK(198)+1: RETURN 


Vektor auf Anfang des fur Basic verfugbaren RAM- 
Bereichs (kann vom Benutzer verändert werden) 
Default-Werte: 

GV und ab 8K-V: $01, 10 = #1, 16 

3K-V: 501, 04 


N 
= 
- 


Vektor auf Ende des fur Basic verfugbaren RAM- 
Bereichs (kann vom Benuzer verändert werden) 


302 


HEX 


0286 


0288 


11289 


UZ8A 


U28D 


ÜZ28F- 
0290 


0291 


DEZ 


648 


649 


Hull 


655- 


656 


A.3 Zero-Page-Adressen 


Default-Werte: 


GV und 3K-Vi $00, 1E = #0, 30 
8K-V!: 500, 40 = #0, 64 
16K-V: s00, 60 = #0, 9% 
24K-V: 500, 80 = #0,128 


Zeichenfarbe (Blau=s6; immer 1 weniger, als auf 
Tastatur angegeben ıst ) 


l. Page vom Video-Speicher 
Detault-Werte: #30 in GV, 3K-V 
#16 in 8K-V, 16K-V, 24K-V 


Maximale Anzahl der Zeichen, die im Tastaturpuf- 
ter stehen durfen (Maxımum und Initialwert ist 
#10); z.B. nach der Eırgabe POKE 649,0 wırd 
keine Eıngabe mehr von der Tastatur her zugelas- 
sen 


Bıt 7 gesetzt (=#128): alle Tasten wiederholen: 
z.B. POKE 650,222 

Bit 6 gesetzt (=#64): keine Taster wiederholen; 
z.B. POKE h5U,66 

Bit t und 7 nicht gesetzt: normal 

z.B. POKE 650,44 


gedruckte SHIFT, CBM, CTRL-Taste 

SHIFT: Bit 0 gesetzt (=1) 

CBM: Bıt 1 gesetzt (=2) 

ETRL: Bit 2 gesetzt (=4) 

Wenn z.B. CBM- und CTRL-Taste zugleich gedruckt 
werden, steht ın Zelle #653 der Wert 6, 


Vektor auf Tastaturdekodierung 
(Detault: SEBDC) 


Zeichenumschaltung freigeben/verriegeln 
frei: Bit. 7 nicht gesetzt (Werte #0-127) 
verriegelt: Bit 7 gesetzt (Werte #128-255) 
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HEX 


0295 


0296 


029B- 
029C 

0300- 
0301 


DEZ 


660 


665- 
666 


768- 
769 


In Verbindung mıt dem Verandern des Bit 7 dieser 
Zero-Page-Adresse lassen sich z.B. die Befehle: 


PRINT CHRS(14): Kleın-/Großschrift einschalten 
PRINT CHRS(142): Großschr./Graphik einschalten 


dadurch kombinieren, daß es dem Benutzer eines 
Programms unmoglich gemacht werden soll, den vom 
Programm vorgegebenen Schrıftmodus durch Drucken 
von SHIFT- und CBM-Taste zu verandern. 


Kontrollregister der RS232-Schnittstelle 
Befehlsregister der RS232-Schnittstelle 


Zeitkonstante der RS232-Schrittstelle 


Vektor zur Fehleranzeige-Routine 
(Default: $SC4A3A) 
Verandert karın dıeser Vektor wie folgt: 


LDX #SLL 

LDY #SHH 

STX 50300 

STY 50301 

RTS 
In Basic entsprache dies: 
POKE 768,(DEZ-Wert von S$SLL):POKE 769, (DEZ-Wert 
von $HH) 


Das Resultat dieser Veranderung ist, daß in Feh- 
lerfallen (z.B."OUT OF MEMORY" oder "ILLEGAL 
QUANTITY") nicht zur vorgesehenen Adresse SCA3A 
gesprungen wird, sondern zu der hier festgeleg- 
ten Adresse SHHLL. 
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HEX 
0302- 
0303 
0304- 
0305 
0306- 
0307 


0308- 
0309 


030A- 


030B 


030C 


030D 


030E 


030F 


0314- 
0315 


DEZ 
770- 
771 
77. 2= 
773 
774- 
775 


776= 
777 


778- 


7279 


780 


781 


782 


783 


788- 
789 


A.3 Zero-Page-Adressen 


Vektor auf Einsprung ın die Basic-Warteschleife 
(Default: $C483): der Eınsprung wırd auch als 
"Warmstart" bezeichnet. 


Vektor zur Routine fur die Umwandlung einer Zei- 
le in Basic-PGM-Code (Default: SC57C) 


Vektor zur Routine fur dıe Ausgabe der den Ba- 
sic-Token entsprechenden Befehlsworte (Default: 
Sc71A) 


Vektor zum Einsprung ın die Basic-Token-Inter- 
pretier-Routine (Default: SC7E4); 
zur Anderung dieses Vektors siehe 50300 


Vektor zur Routine fur die Auswertung eines 
Terms (Default: $CE86) 


im SYS-Befehl ubergebenes A-Register 
im SYS-Befehl ubergebenes X-Register 
ım SYS-Befehl ubergebenes Y-Register 
im SYS-Befehl ubergebenes PSW-Register 


Vektor zur IRQ-Routine bei nicht gesetztem BRK- 
Flag (Default: $SEABF): man kann diesen Vektor 
zwar auch verandern, jedoch geht das nicht ein- 
fach durch POKEn in diese beiden Speicherzellen. 
Was hier noch berucksichtigt werden muß, ist, 
daß die Umanderung von beiden Werten gar nicht 
so schnell erfolgen kann, wie die Interrupt-Rou- 
tine nach 1/60 s erneut aufgerufen wird. D.h, 
nach Veranderung eines der beiden Werte springt 
die Interrupt-Routine zu einer undefinierten 
Adresse, was in den meisten Fallen zum totalen 
Systemabsturz fuhrt. 

Das I-Flag (Interrupt-Disable-Flag) muß hierbei 
also gesetzt werden. Dieses Flag wird in Basic 
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uber einen eınfachen Trick beeinflußt (in Ma- 
schinensprache gabe es hier ohnehin keine Prob- 
leme, weil es den Befehl SEI gibt): uber die 
Adressen #780-783 erhalten die Register A,X,Y, 
PSW mittels Befehl SYS die vom Benutzer ge- 
wunschten Werte. Bevor also in die Adressen 
#788,789 hineingePOKEd wird, setzt man in die 
Speicherzelle #783 den Wert 4 (was ja bedeutet: 
Bit 2 setzen) und springt mit SYS zu einem be- 
liebigen Rucksprungbefehl (in Maschinensprache 
ist das der Befehl RTS mit dem Code #96), z.B. 
SYS 60044, Prufen Sie’s nach! uberzeugen Sie 
sıch, daß ın #60044 wirklich der Wert #96 steht. 
Nachdem auf diese Weise das I-Flag, gewisser- 
maßen durch dıe Hıntertur gesetzt wurde, kann 
der Vektor #788,789 ohne Bedenken "verbogen" 
werden, 

Zum Beispiel soll dieser Vektor auf S52000=#8192 
zeigen (LOW=U, HIGH=32: 0+32*256=8192), von wo 
ab ırgendein M-PGM beginnt. Er wird folgender - 
maßen verbogen: 


POKE 783,4:5YS 60044:POKE 788,0:POKE 789,32 (Re- 
turn) 

Zu beachten ware hierbei lediglich, daß diese 4 
Betehle alle ın einer Betehlszeile sind (jeden- 
falls ım Direkt-Modus), 


Im M-PGM sahe die Vektorveranderung folgenderma- 
Ren aus! 


LDX #SLL 
LDY #SHH 
SEI 
STX 50314 
STY $0315 
RTS 


Nach dieser Befehlsfolge zeigt der IRQ-Vektor 
auf die Adresse S$HHLL. 
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HEX 


0316- 
0317 

0318- 
0319 

0326- 
0327 


0328- 
0329 


032A- 
032B 


032E- 
032F 


0334- 
033B 


DEZ 


790- 
731 


792- 
793 


806- 
807 


808- 
809 


810- 
811 


814- 
815 


820- 
827 


A.3 Zero-Page-Adressen 


Vektor zur IRQ-Routine bei gesetztem BRK-Flag 
(Default: SFED2) 


Vektor zur NMI-Routine (Default: SFEAD) 


Vektor zur Output-Routire (Default: $F27A) 


Vektor zur Routine fur die Abfrage der STOP- 
Taste (Default: $F770). 

Mittels "Verbiegen" dieses Vektors, z.B. durch 
POKE 808,100, bleibt das Drucken der Tasten STOP 
sowie RESTORE wirkungslos. Per POKE 808,112 wird 
der Anafangszustand wiederhergestellt. 


Vektor auf Input-Routine (Default: S$SF1F5) 


frei verfugbar 


frei verfugbar 
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A.A BETRIEBSSYSTEM-ROUTINEN 


In diesem Anhang-Teil werden hauptsachlich diejenigen Betriebs- 
system-Routinen eingehender beprochen, welche auch in den in die- 
sem Buch veroffentlichten Programmen benutzt werden. Die folgen- 
den Auflistung erhebt deswegen keinen Vollstandigkeitsanspruch, 
Eine vielleicht langere, jedoch dafur nıcht mit so zahlreichen 
Erklarungen versehenen Liste von Betriebssystem-Routinen ist be- 
reits an anderer Stelle veroffentlicht. 

über der jeweiliger: Erlauterung stehen die Adresser auf der lin- 
ken Seite in HEX- und auf der rechten Seite in DEZ-Schreibweıse, 
CO9E - C19C 49310 - 49564 
Siehe Tabelle A.5.3 im Anhang A.5. In diesem Bereich sind samtli- 
che Basic-Befehle und -Funktionsworte abgespeichert, 


C38A 50058 


Stapelsuchroutine fur die Befehle FOR-NEXT und GOSUB 


C3FB 50171 


Die Routine ab SC3FB pruft, ob noch Platz im Stack ist. 


Cc435 50229 
Ausgabe "OUT OF MEMORY" und "READY", Ruckkehr zum Direkt-Modus, 
siehe zusatzlich $C437 und SC4A3A, 

c437 50231 
Sprung zur Fehlermeldungs-Routine, Im Betriebssystem steht hier 


der Befehl JMP ($0300),. Der Einsprung in diese Routine wird dem- 
nach durch den Vektor in $0300,50301 (L,H) vorgegeben. Nach Ab- 
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lauf der RESET-Routine steht hier der Default-Wert SC43A, er kann 
aber auch von Ihnen verandert werden: 


im M-PGM: LDX #SLL (SHHLL seı die von Ihnen 
LDY #SHH gewunschte Einsprungadresse ) 
STX $0300 
STY 50301 
RTS 


im B-PGM:! POKE 768,1 (DEZ-Wert von $LL): 
POKE 769,H (DEZ-Wert von SHH) 


CA3A 50234 
Ausgabe einer Fehlermeldung und "READY" und Ruckkehr zum Direkt- 
Modus. Die Fehlermeldung wırd durch den im X-Register (Fehlernum- 
mer) ubergebenen Wert spezifiziert. Eine Gegenuberstellung von 
Fehlernummern und -meldungen finden Sie in Anhang A,5, Tabelle 
A.5.4. Die Benutzung dıeser Routine ın eigenen Programmen ge- 


schieht mittels zweı Befehlen: 


ım M-PGM: LDX #$NN (SNN ist die Fehlernummer ) 
JMP SC4A3A 


ım B-PGM: POKE 781 ,N:5YS 50234 (N ist die DEZ-Fehlerriummer ) 


Cc474 50292 


Einsprung ın den READY-Modus (PGM-Austritt) 


C480 50304 


Vektorisierter Sprung (Vektor in $0302,50303) auf die Routine 
"Eingabe-Warteschleife". Die vom Betriebssystem vorgegebene Ein- 
sprungadresse ist $C483, kann aber entsprechend der unter $C437 
gemachten Angaben verandert werden. 


309 


A.A Betriebssystem-Routinen 


C483 50307 


Einsprung in die Basic-Eingabe-Warteschleife: eigentlich ge- 
schieht dies indirekt schon mittels Befehl in SC480-C482: 


JMP (50302) 
wern der Vektor $0302,0303 auf die Adresse $C483 zeigt. 
CAIC 50332 


Einfugen und Loschen einer Programmzeile 


C613 50707 


Berechnung der Startadresse einer Basic-Programmzeile, deren Zei- 
lennummer SHHLL (HEX-Darstellung !) in den Speicherzellen $14,15 
(L,H) steht. Die Anfangsadresse steht nach Ruckkehr aus dieser 
Routine in den Zellen $5F,60 (L,H). Falls die Basic-Zeile nicht 
gefunden wurde, wird die Routine mit geloschtem Carry-Flag ver- 
lassen, Die Routine konnte in folgendem M-UP benutzt werden: 


LDX #SLL 
LDY #SHH 
UP-Einsprung: STX 514 
STY $15 
JSR $C613 
BCC Marki 
LDX $5F 
LDY $60 
RTS 
Mark1: LDX #SFF 
LDY #SFF 
RTS 


Die Basic-Zeilennummer wird beim Einsprung in das UP in den X,Y- 
Registern (L,H) ubergeben. Nach Ruckkehr aus dem UP enthalten die 
X- Y-Register die gesuchte Startadresse der Basic-Zeile oder aber 
beide den Wert SFF, falls die Zeilennummer im B-PGM nicht gefun- 
den worden ist. 
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C68E 50830 


Der Scanner-Vektor S7A,7B erhalt den um 1 verminderten Wert des 
Vektors 52B,2C. 


C69C 50844 


Bearbeitung des Befehls Basıc-Befehls LIST. Bei evtl. Benutzung 
dieser Routine ın M-PGM’en muss dem JSR $C69C allerdıngs unbe- 
dingt der Befehl JSR 50079 vorangehen,. 


C7AE 51118 


Anfang der Interpreter-Routıne 


C7EA 51172 


Interpretieren des Basic-Token 


c82C 51244 
Stop-Taste abfragen und Basic-Stop veranlassen, falls gedruckt. 
Im Falle einer STOP-Anweisung im B-PGM wird die Stop-Tastenabfra- 
ge (JSR SFFE1) umgangen und in $C32F eingesprungen. 


C8A3 51363 


GOTO-Routine; in $14,15 muß die Ziel-Zeilennummer (L,H) stehen. 


Cc906 5146? 


Bestimmung des Endes eines Befehls innerhalb einer Zeile, In Y 
steht der Offset bzgl. des Zeilenanfangs zum Doppelpunkt (Ende- 
kennzeichen), 
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C96B 51563 


Zeilennummer einlesen, ins LOW/HIGH-Format umwandeln und in $14, 
15 abspeichern. Vektor 57A,7B muß auf die 1, Ziffer des ASCII- 
Ziffernstring zeigen, 


CIYAS 51621 
Variablenzuweisungsbefehl: z.B.: LET A=5 oder A=5 

CB1E 51998 
String-Ausgabe-Routine; ein String, der ab Adresse $HHLL gespei- 


chert ıst und eine U als Endekennzeichen aufweist, wird ausgege- 
ben (Bildschirm oder Drucker). 


im M-PGM: LDA #SLL 
LDY #SHH 
JSR $SCB1E 
ım Basic: POKE 780, (DEZ-Wert von SLL):POKE 782, (DEZ-Wert von 


SHH):SYS 51998 


Zum Beispiel kann per: 

POKE 780,65:POKE 782,3:5Y5 51998 (Return) 
der Kassettenpuffer bis zur ersten U ausgelesen werden. Dies kann 
von Nutzen sein, will man der gesamten Programmnamen erfahren, 
unter dem ein Programm abgespeichert. worden ist, 


Folgende Meldungen lassen sich nach obigen Verfahren ausgeben: 


5-Adresse #-LOW, #-HIGH Meldung 
CCFC 252 204 ? EXTRA IGNORED 
CDOC 12 205 ? REDO FROM START 
C364 100 195 OK 
CI369 105 195 ERROR 
C.36B 107 195 ERROR (ohne WR und 

Space am Anfang) 

6371 113 195 IN 
C376 118 195 READY, 
c381 129 195 BREAK 
E429 41 228 BYTES FREE 
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CB3F 52031 


Ausgabe eines Leerzeichens 


CBA2 52034 


Cursor wird um eine Stelle nach rechts bewegt. 


CB45 52037 


Ausgabe eines Fragezeichens 


CB4A7 52039 


Ausgabe des im Akku stehenden Zeichens 


CD8A 52618 


Numerischen Term auswerten; der Vektor $7A,7B muß auf das 1. Zei- 
chen des Terms zeigen. 


CD8D 52621 


pruft eingelesenen Term auf numerisch: wenn er nicht numerisch 
ist, folgt die Ausgabe der Fehlermeldung "TYPE MISMATCH", 


CD8F 52623 


pruft eingelesenen Term auf String; wenn er nicht vom Typ String 
ist, folgt die Ausgabe der Fehlermeldung "TYPE MISMATCH", 


CD9IE 52638 


beliebigen Term auswerten; der Vektor $7A,7B muß auf das 1, Zei- 
chen des Term zeigen. Ausgang aus der Routine: in $OD steht SFF, 
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wenn der Term ein String ist; in 545,46 steht der Name und in 
$47,48 die Adresse der Variablen, welche als letzte im eıngelese- 
nen Term vorkommt. 


CEF? 52983 
momentanes Zeichen, auf das der Vektor $7A,7B zeıgt, auf "Klammer 


auf" prufen und nachstes Zeichen holen. Falls nıcht "Klammer 
auf", folgt "SYNTAX ERROR", 


CEFA 52986 


analog zu S$SCEF?7 sinngemaß fur "Klammer zu" 


CEFD 52989 


prufen auf Komma; sinngemaß wie bei S$CEF7 


CEFF 52991 
vergleicht das im Akku stehende Zeichen mit dem Zeichen, auf das 
der Vektor $7A,7B zeigt. Falls es nicht ıdentisch ist, folgt die 
Meldung "SYNTAX ERROR", 

CF08 53000 
Ausgabe der Fehlermeldung "SYNTAX ERROR" und Sprung in den READY- 
Modus (Austritt aus dem Programm), Kann in Basic per SYS 53000 
benutzt werden, 

CF4B 53067 


Umrechnung eines 3-Byte-Zahler-Wertes: 


62 enthalt 0 

S63 hochstwertiges Byte 
564 mittelwertiges Byte 
$65 niederwertiges Byte 
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in die Uhrzeit und dessen ASCII-String erzeugen; wird in Verbin- 
dung mit der Routine ab $D6A& benutzt, die den String-Deskriptor 
nach Register A,X,Y (Lange,L,H) legt. 


CF87 53127 


Der Wert eines 3-Byte-Zahlers wird in den Fließkomma-Akkumulator 
(Bereich $61-68) geladen! 


#500 --) 562 
Wert von Y —) 863 hochstwertiges Byte 
Wert von X --) 564 mittelwertiges Byte 
Wert von A -—) 565 nıederwertiges Byte 
DIN? 53523 


pruft Zeichen ım Akku auf Buchstabe; das Carry-Flag ist gesetzt 
wenn es eın Buchstabe ıst. 


D245 53829 
Ausgabe der Fehlermeldung "BAD SUBSCRIPT ERROR" und Sprung ın den 
READY-Modus (PGM-Austritt), 

D248 53832 


sinngemaß wıe D/45 fur dıe Fehlermeldung "ILLEGAL QUANTITY" 


D6A6 54950 


siehe CF4B; String-Deskriptor wırd ın die Register A,X,Y 
(Lange,L,H) gebracht. 


D7F7 55287 


Umwandlung einer Integer-Zahl von U bis 65535 ins LOW/HIGH-For- 
mat. Die zwei berechneten Bytes liegen ın den Zellen $14,15 (L,H) 
und in den Registern Y,A. 
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Diese Routine wird in Verbindung mit SCD8A verwendet, so daß mit 
der Kombination: 

JSR SCD8A 

JSR SD7F7 
eine in Basic (PGM oder Direkt-Modus) eingegebene Integer-Zahl 
bequem in ein Maschinenprogramm ubergeben werden kann. 


DDCD 56781 


Ausgabe einer Integer-Zahl zwischen 0 und 65535, wobei das 2- 
Byte-Pendant (L,H) in den Registern X,A vorgegeben wird. 
In M-PGM wird diese Routine wie folgt verwendet: 


LDX #SLL 
LDY #SHH 
JSR $SDDCD 


(SHHLL sei die auszugebene Zahl in HEX). 


Das entsprechende Basic-Analogon! 
POKE 781, (DEZ-Wert von $LL):POKE 782,(DEZ-Wert von $HH):SYS 56781 
laßt sich naturlich einfacher durchfuhren mit: 

PRINT (DEZ-Wert von $LL)+256*%(DEZ-Wert von $HH) 


DDDD 56797 


Eine im Fließkomma-Akku (Bereich $61-68) stehende Zahl wird in 
ein ASCII-String umgewandelt und das Ergebnis nach $0100-... (ab- 
hanging von der Lange) gebracht. 


E251 57937 


liest einen String oder eine Stringvariable ein und speichert den 
Deskriptor (Länge, Anfangsadresse L/H) des Strings nach $B7, $BB, 
SBC und A,X,Y. Hierbei muß der Vektor $7A,7B auf ein Komma vor 
dem String oder der Stringvariablen zeigen. 
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Will man in Basic den Deskriptor eines Strings ermitteln, so gibt 
man ein! 

syS 57937 ,(String od. Stringvariable):PRINT PEEK(780) ;PEEK(781); 
PEEK (782) 

Wenn der String z.B. "ABCDE" ist, muß als erster Wert 5 erschei- 
nen, weil die Zelle #780 als übergabespeicherzelle den Akku-In- 
halt, demnach also die Lange des Strings enthalten muß. Von der 
Richtigkeit der zwei restlichen Zahlen konnen Sıe sich einfach 
so überzeugen: 


PRINT PEEK( (mittlere Zahl )+256*(letzte Zahl)+0):; 
PEEK( (mittlere Zahl)+256*(letzte Zahl)+1): 
PEEK( (mittlere Zahl )+256*(letzte Zahl)+2): 
PEEK( (mittlere Zahl )+256*(letzte Zahl)+3): 
PEEK( (mittlere Zahl )+256%(letzte Zahl )+4) 


die Ergebnisse 65,66,67,68,69, namlich die ASCII-Codes fur: A, B, 
C, D, E erhalten, 


E254 57940 


siehe E251: der Unterschied dazu ist, daß die Komma-Prufung ent- 
fallt. Der Vektor $7A,7B muß auf das 1. Zeichen des Strings oder 
der Stringvariablen zeigen. 


E387 - E3IE 58247 - 58270 


Scanner-Routine; diese funktioniert aber nicht in diesem Adreßbe- 
reich, sondern muß in einem beliebigen RAM-Bereich (relocatable) 
stehen. Beim VC-20 wird diese Routine während der RESET-Routine 
in den Bereich $73-8A gebracht (siehe weitere Informationen im 
Anhang A.3 unter $73-8A), 


E4ASB 58459 


Die Basic-Interpreter-Vektoren $0300-030B werden auf die Aus- 
gangswerte (Default-Werte) zuruckgesetzt. Per Basic mittels SYS 
58459 konnen z.B. zusatzliche Interpreter-Routinen oder eigene 
Fehlermeldungsroutinen deaktiviert werden, 
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E50C 58636 
Cursor setzen: Register X,Y enthalten die vorgegebene Reihen- 
(0...22) und Spaltennummer (0..21). Per Basic ist die Routine 


gemaß folgendem Beispiel verwendbar: 
POKE 781,(Zeile):POKE 782(Spalte):SYS 58636:PRINT "CURSOR" 


E513 58643 
Cursor-Position abrufen; Register X,Y enthalten die Reihen- 
(0...22) und Spaltennummer (0..21). Nach SYS 58643 steht in den 


Speicherzellen #781, #782 die beim Aufruf qultige Cursor-Position 
(Zeilen-/Spaltennummer, siehe E50C). 


ESS5F 58719 


entspricht der Funktion CLR HOME 


E581 58753 


entspricht der Funktıon CRSR HOME 


ESCF 58831 
das nachste Zeichen aus dem Tastaturpuffer holen und in den Akku 
laden 

E975 j 59765 
SCROLLING-Funktion, Mit SYS 59765 wird der gesamte Bildschirmin- 


halt um eine Zeile nach oben geSCROLLed. Die oberste Zeile ver- 
schwindet und eine leere Zeile ruckt als letzte Zeile nach. 
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EA8D 60045 


Die im X-Register vorgegebene Zeile (0..22) wird auf dem Bild- 
schirm geloscht. Anwendung: 


ım M-PGM: LDX #827 
JSR SEA8D 
im Basic-PGM: POKE 781 ,DEZ-Wert von ($22):SYS 60045 


z.B. wird mit POKE 781,1:5Y5 60045 die 2. Zeile geloscht. 


EA8F 60047 


Die im X-Register vorgebene Zeile (0..22) wird bis zur im Y-Re- 
gister vorgegebenen Spalte (0,..21) geloscht, Anwendung: 


im M-PGM: LDX #527 
LDY #855 
JSR SEA8F 


im Basic-PGM! POKE 781, (DEZ-Wert zu $2Z):POKE 782, (DEZ-WERT 
zu $SS):SYS 60047 


z.B. werden mit POKE 781,5:POKE 782,7:SYS 60047 die ersten 8 Zei- 
chen der 6. Zeile geloscht. 


EAB2 — EABE 60082 - 60094 


Berechnung des Farb-Speicher-Vektors $F3,F4 aufgrund der Vorgabe 
des Video-Speicher-Vektors $D1,D2, der auf die Anfangsadresse ei- 
ner Bildschirmzeile gerichtet ist. 


EABF 60095 


Anfang der Interrupt-Routine (s,. Anhang A.2), die bei nicht ge- 
setztem BRK-Flag und einer IRQ-Interrupt-Anforderung angesprungen 
wird, vorausgesetzt, daß der Vektor $0314,0315 auf $EABF zeigt 
(siehe weitere Angaben hierzu in Anhang A.3, Adressen $0314, 


0315). 
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EB1E 60190 


Einsprung in die Tastatur-Abfrage 


EBDC 60380 


Einsprung in die Tastatur-Entschlusselung 


F1E2 61922 


s. Anhang A.5, Tabelle A.5-5 


FIF5 61941 


ist das M-PGM-Pendant zum Basic-Befehl GET. Im Akku-Register 
steht $00, wenn nichts oder eine $00 im Tastaturpuffer stand. Der 
Aufruf JSR SFIF5S entspricht JSR $FFE4, wenn Vektor $032A,032B auf 
SFIF5S zeigt. 


F27A 62074 


Ausgabe des im Akku stehenden Zeichens auf das momentan adres- 
sierte Ausgabegerat. JSR $F27A entspricht JSR $FFD2, wenn Vektor 
50326,0327 auf $F27A zeigt. 


F2BA 62138 


Ausgabe eines Zeichens auf Gerat 2 (RS232-Schnittstelle), Das im 
Akku stehende Zeichen wird in den Ausgabepuffer der RS232- 
Schnittstelle geschrieben. Der Ausgabepuffer wird mit der OPEN- 
Anweisung eingerichtet und seine Anfangsadresse in die ZeroPage- 
Adresse $F9 und FA abgelegt, Sobald der Ausgabepuffer voll ist 
(max. 256 Zeichen), wird so lange in der Routine gewartet, bis 
ein Zeichen ausgegeben wurde und damit Platz fur das neue Zeichen 
geschafft wurde. 

Bei kleinen Baud-Raten und großen Mengen auszugebender Daten kann 
es deshalb zu einem verlangsamten Abarbeiten des Haupt-PGM’s fuh- 
ren, 
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Die CLOSE-Anweisung hat zur Folge, daß Daten die noch im Ausgabe- 
puffer stehen und auf ihre Aussendung warten, verloren sind. Eine 
Prufung von Bit-Nr. 6 im Unterbrechungs-Freigabe-Register der VIA 
#1 ist deshalb unbedingt vor der CLOSE-Anweisung durchzuführen, 
Bit 6 ist 0, wenn der Ausgabepuffer leer ist. 


F604 62980 
Programm ohne Header per SYS 62980 laden. Bei Aufruf dieser 
Routine wird vorausgesetzt, daß die Header-Information (evtl, von 
Ihnen gezielt verandert) bereits ın den Zellen 5033C-0340 = #828- 
832 (s. Kap. 2,2 "Tape-Header") vorliegt. Zum Laden des Headers 
siehe $F7AF, 


F659 63065 


Ausgabe eines Strings, dessen Deskriptor ın $B7, SBB, SBC steht, 


F7AF 63407 
Einlesen des Tape-Headers per SYS 63407. Nachdem der Header gele- 
sen worden ıst, kann die in den Zellen $033C-0340 gespeicherte 
Information nach Ihren Wunschen verandert werden, bevor das ei- 
gentlıche Programm mittels SYS 62980 (s. $F604) geladen wird, 
F894 63636 
gibt "PRESS PLAY ON TAPE" aus und wartet, bis die PLAY-Taste der 
Datassette gedruckt wird. 


F8B7 63671 


gibt "PRESS RECORD & PLAY ON TAPE" aus und wartet, bis PLAY-Taste 
der Datassette gedruckt wird, 
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FD22 64802 


Einsprung in die RESET-Routine 


FD2F 64815 


Teil-RESET (siehe FD22);, der automatische Sprung zur in Vektor 
SA0O00 ,A0U1 angegebenen Adresse wird mittels SYS 64815 verhindert. 


FD52 64850 


Vektoren 50314-0333 auf Ausgangswerte (Default-Werte) setzen 


FDCA 64970 


In der Befehlsfolge: LDX #500 

JSR $FDCA 
wird der RAM-Ende-Vektor $0283,0284 und der Video-Speicher-Anfang 
auf S1EOO gesetzt, 


FDD2 64978 
In der Betfehlstolge: LDX #SLL 

LDY #S$HH 

JSR $FDD2 


wird der RAM-Anfang-Vektor $0281,0282 auf 51200, der Video-Spei- 
cher-Anfang auf $1000 und der RAM-Ende-Vektor auf $HHLL gesetzt. 


FE4A9I 65097 


Die Inhalte in Akku, X, Y werden in die Speicherplatze $B7, $BB, 
SBC (Filenamen-Lange und Anfangsadresse) kopiert. 
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FE5O 65104 


Die Inhalte in Akku, X, Y werden in die Speicherplatze $B8, SBA, 
SB9 (Filenummer, Primar- und Sekundarädresse) kopiert. 


FE8A 65162 
In der Befehlsfolge: LDX #SLL 

LDY #5HH 

JSR SFE8A 


wird der RAM-Anfang-Vektor 50281 ,0282 auf $HHLL gesetzt, 


FE91 65169 


JSR $SFE9! pruft eine durch Vektor $C1,C2 adressierte Speicher zel- 
le auf RAM. Das Carry-Flag wird gesetzt, wenn die Speicherzelle 
RAM ist, 


FEA9I 65193 


Einsprung in die NMI-Routine 


FED2 65234 


Anfang der IRQ-Routine bei gesetztem BRK-Flag 


FF72 65394 


Einsprung in die IRQ-Routine 


FFBA 65466 


siehe FE50O 
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FFBD 65469 
siehe FE49 
FFD2 65490 


Sprung zur in Vektor $0326,0327 angegebenen Adresse; s. F27A 


FFE4 65508 


Sprung zur in Vektor $032A,032B angegebenen Adresse: s. FIF5 


FFE7 65511 


Bei Ansprung dieser Adresse (SYS 65511) werden alle momentan ge- 
offneten Files geschlossen, Wenn Ihnen also das fur den VC-20- 
Drucker notwendige PRINT#4:CLOSE4 (hierbei wird 4 als Filenummer 
unterstellt) nicht schnell genug erscheint, kann ebenso SYS 65511 
benutzen. 


FFFO 65520 


siehe E50C 


A.5 Tabellen 


A.5S TABELLEN 


Tabellen A.5.1 und A,5.2 konnen recht nützliche Hilfen für Ma- 
schinensprache-Programmierer sein, naturlich auch fur diejenigen, 
die darin einsteigen wollen. Zwar wird man solche Tabellen in 
mehr oder weniger anderer Form auch in anderen speziell für Ma- 
schinensprache kompetenteren Buchern finden, aber sie sollten 
dennoch unserer Meinung nach nicht in einem solchen Buch fehlen, 
worin sich ja doch eine Menge M-PGMe befinden, 


Da es seit einigen Monaten die CMOS-Version der 6502-CPU mit dem 
Namen G655C02 gibt, die vollstandig aufwartskompatibel zum 6502 
ist (d.h. der 6502 ist aus der VC-20-Grundplatine herauszuziehen 
und durch den 6G655C02 zu ersetzen: das VC-20-Betriebssystem wird 
danach gleichermaßen funktionieren wie vorher auch), daruberhin- 
aus sogar 27 weitere Befehlscodes aufweist, hielten wir es fur 
richtig, auch gleich diese mit in die Tabellen aufzunehmen, Die 
hinzugekommenen Befehle sind durch ein + gekennzeichnet. Hinweise 
zu den zusätzlichen Befehlen befinden sich im Anschluß an die Ta- 
bellen A.5.1 und A.5.2. 


Des ofteren mochte man gerne wissen, welche Flags bei einem be- 
stimmten Befehl beeinflußt werden oder wieviel Bytes fur die Ko- 
dierung eines Befehls benotigt werden, Schnell liefert hierbei 
Tabelle A.5.1 Auskunft, weil darin sämtliche 56 6502-Befehlsarten 
- es sind insgesamt 151 Befehle, berücksichtigt man noch zusätz- 
lich die unterschiedlichen Adressierungsarten - in alphabetischer 
Reihenfolge aufgelistet sind. Der uübersichtlichkeit halber ist 
ein Befehlswort, z.B. LDA, nur einmal aufgeführt und in einge- 
ruckter Darstellung die dazugehorigen Adressierungsarten. Analog 
dazu, wurden die beeinflußten Flags auch nur einmal aufgelistet, 
gelten aber fur alle Adressierungsmoglichkeiten. Die Bedeutung 
der Abkürzungen sind Anhang A.l zu entnehmen, 


Tabelle A.,5.2 liefert eine Gegenuberstellung der DEZ- und HEX- 
Zahlen in aufsteigender Reihenfolge mit den zugehorigen 6502-Be- 
fehlen. Da hierbei die Lucken - es gibt nun mal nicht 256 Befehle 
- nicht ausgelassen wurden, kann die Tabelle A.5.2 ebenso gut als 
Vergleichstabelle zwischen HEX- und DEZ-Zahlen ihre Dienste tun, 
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Tabelle A.5.1: 6502-Befehle in alphabetischer Reihenfolge 


Befehl- HEX-Zahl DEZ-Zahl Anzahl der Beeinflußte 
Mnemonic Ss # Befehlsbytes Flags 
ADC #5KK 69 105 2 N,V,Z,C 

SHHLL 6D 109 3 
EYAA 65 101 2 
($2Z,X) 61 97 2 
($ZZ),Y 71 113 2 
SZZ,X 75 117 2 
SHHLL,X 7D 125 3 
SHHLL,Y 79 121 3 
+ ($7Z) 72 114 2 
AND #SKK 29 41 2 N,Z 
SHHLL 2D 45 3 
EYAH 25 37 2 
($ZZ,X) 21 33 2 
($ZZ) ,Y 31 49 2 
S7ZZ,X 35 53 2 
SHHLL,X 3D 61 3 
SHHLL ,Y 39 57 3 
+ ($ZZ) 32 50 2 
ASL A OA 10 il N,Z,C 
SHHLL OE 14 3 
$zz7 06 6 2 
SZZ,X 16 22 2 
SHHLL,X 1E 30 3 
BCC 90 144 2 _- 
BCS BO 176 2 --- 
BEQ FO 240 2 == 
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Befehl- HEX-Zahl DEZ-Zahl Anzahl der Beeınflußte 
Mnemonic Ss # Befehlsbytes Flags 
BIT SHHLL 2C 44 3 N=B7 ‚V=B6,Z 
$77 24 36 2 
+ #SKK 89 137 2 
+ $2Z,X 34 52 2 
+ SHHLL,X 3 60 3 
BMI 30 48 2 -—- 
BNE DO 208 2 --- 
BPL 10 16 2 --- 
+ BRA 80 128 2 --- 
BRK 00 0 1 B=1 ,I=l 
BVC 50 80 2 --- 
BVS 70 112 2 --- 
GEE 18 24 1 Cc=0 
CLD D8 216 1 D=0 
GET 58 88 1 I=0 
CLV B8 184 1 V=0 
CMP #SKK CI 201 2 N,Z,C 
SHHLL CD 205 3 
$77 65 197 2 
($ZZ,X) c1 193 2 
($ZZ),Y D1 209 2 
SZZ ,X D5 213 2 
SHHLL,X DD 221 3 
SHHLL,Y DI 217 3 
+ ($Z2) D2 210 2 
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Befehl- HEX-Zahl DEZ-Zahl Anzahl der Beeinflußte 
Mnemonic S # Befehlsbytes Flags 
CPX #SKK EO 224 2 N.Z-GC 
SHHLL EC 236 3 
$2Z E4 228 2 
CPY #SKK co 192 2 N. 2.6 
SHHLL CC 204 3 
SzZ c4 196 2 
DEC SHHLL CE 206 3 N,Z 
SzZ c6 198 2 
SZZ ,X D6 214 2 
SHHLL,X DE 222 3 
+ A 3A 58 1 
DEX CA 202 1 N,Z 
DEY 88 136 1 N,Z 
EOR #5KK 49 73 2 N,Z 
SHHLL 4D 77 3 
SZZ 45 69 2 
($2ZZ,X) 41 65 2 
($ZZ),Y 51 81 2 
SZZ,X 55 85 2 
SHHLL,X 5D 93 3 
SHHLL ,‚Y 59 89 3 
+ (8SZZ) 52 82 2 
INC $HHLL EE 238 3 N,Z 
$77 E6 230 2 
S7Z ,X F6 246 2 
SHHLL,X FE 254 3 
+ A 1A 26 1 
INX E8 232 1 N,Z 
INY c8 200 1 N,Z 
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Befehl - HEX-Zahl DEZ-Zahl Anzahl der Beeinflußte 
Mnemonic S H Befehlsbytes Flags 
JMP SHHLL 4C 76 3 u 
(SHHLL) 6C 108 3 -_—- 
+ (SHHLL,X) FC 124 3 --- 
JSR S$HHLL 20 32 3 -_— 
LDA #SKK A9 169 2 N,Z 
$HHLL AD 173 3 
$ZZ A5 165 2 
($ZZ ,X) Al 161 2 
(522),Y Bi 177 2 
SZZ,X B5 181 2 
SHHLL,X BD 189 3 
SHHLL,Y BI 185 3 
+ ($ZZ) B2 178 2 
LDX #SKK A2 162 2 N,Z 
SHHLL AE 174 3 
Szz A6 166 2 
SZZ,Y B6 182 2 
$HHLL ,Y BE 190 3 
LDY #SKK AO 160 2 N,Z 
SHHLL AC 172 3 
$27 A4 164 2 
SZZ,X B4 180 2 
SHHLL,X BC 188 3 
LSR A 4A 74 1 N=0,Z,C 
SHHLL 4E 78 3 
$ZZ 46 70 2 
SZZ,X 56 86 2 
SHHLL ,X SE 94 3 
NOP EA 234 1 --- 
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Befehl- HEX-Zahl DEZ-Zahl Anzahl der Beeinflußte 
Mnemonic S # Befehlsbytes Flags 
ORA #SKK 09 9 2 N,Z 
SHHLL OD 13 3 
$77 05 5 2 
(522 ,X) 01 1 2 
(SZZ) ,Y 14 17 2 
S7ZZ,X 15 21 2 
SHHLL,X 1D 29 3 
SHHLL,Y 19 25 3 
+ ($ZZ) 12 18 2 
PHA 48 72 1 --- 
PHP 08 8 1 --- 
+ PHX DA 218 1 _- 
+ PHY 5A 90 1 —- 
PLA 68 104 1 N,Z 
PLP 28 40 1 alle Flags 
+ PLX FA 250 1 N,Z 
+ PLY 7A 122 1 N,Z 
ROL A 2A 42 j' N,Z,C 
SHHLL 2E 46 3 
$77 26 38 2 
S$7Z,X 36 54 2 
SHHLL,X 3E 62 3 
ROR A 6A 106 1 N,Z,C 
SHHLL 6E 110 3 
$77 66 102 2 
$7Z,X 76 118 2 
SHHLL ,X 7E 126 3 
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Befehl- HEX-Zahl DEZ-Zahl Anzahl der Beeinflußte 
Mnemonic S = Befehlsbytes Flags 
RTI 40 64 1 alle Flags 
RTS 60 96 1 --- 
SBC #SKK E9I 233 2 N,Z,C,V 
SHHLL ED 237 3 
SzZ E5 229 2 
(SZZ ,X) Ei 225 2 
(SZZ) ,Y Fi 241 2 
SZZ,X F5 245 2 
SHHLL,X FD 253 3 
SHHLL,Y F9 249 3 
+ (SZZ) F2 242 2 
SEC 38 56 1 C=1 
SED F8 248 1 D=1 
SEI 78 120 1 I=1 
STA SHHLL 8D 141 3 _- 
RYAA 85 133 2. 
($ZZ ,X) 81 129 2 
(SZZ),Y 91 145 2 
SZZ,X 95 149 2 
SHHLL ,X 9D 157 3 
SHHLL ,Y 99 153 3 
+ (SZZ) 92 146 2 
STX SHHLL 8E 142 3 --- 
877 86 134 2 
SZZ,Y 96 150 2 
STY SHHLL 8C 140 3 -_— 
EYAA 84 132 2 
S77Z,X 94 148 2 
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Befehl- HEX-Zahl DEZ-Zahl Anzahl der Beeinflußte 
Mnemonic Ss # Befehlsbytes Flags 
+ STZ SHHLL IC 156 3 -_- 
$77Z 64 100 2 
S7Z ,X 74 116 2 
SHHLL,X 9E 158 3 
TAX AA 170 1 N,Z 
TAY A8 168 1 N,Z 
+ TRB SHHLL 1C 28 3 zZ 
$77 14 20 2 
+ TSB SHHLL 0C 12 3 Z 
$27 04 4 2 
TSX BA 186 1 N,Z 
TXA 8A 138 1 N,Z 
TXS 9A 154 1 - 
TYA 98 152 1 N,Z 


332 


A.5 Tabellen 


Tabelle A.5.2: DEZ-/HEX-Zahlen und zugehörige 6502-Befehle 


DEZ-Zahl HEX-Zahl Befehl- DEZ-Zahl HEX-Zahl Befehl- 
# S Mnemonic H Ss Mnemonic 
| 

0 00 BRK | 32 20 JSR S$HHLL 

1 01 ORA ($22,X) | 33 21 AND ($ZZ,X) 
2 02 | 34 22 

3 03 | 35 23 

4 04 + TSB $22 | 36 24 BIT $22 

5 05 ORA $27 | 37 25 AND $ZZ 

6 06 ASL $ZZ | 38 26 ROL $22Z 

7 07 | 39 27 

8 08 PHP | 40 28 PLP 

3 09 ORA #SKK | 41 29 AND #SKK 

10 DA ASL A | 42 2A ROL A 

11 OB | 43 2B 

12 0OC + TSB SHHLL | 44 2C BIT SHHLL 
13 0D ORA $HHLL | 45 2D AND SHHLL 
14 0OE ASL $HHLL | 46 2E ROL SHHLL 
15 OF | 47 2F 

16 10 BPL | 48 30 BMI 
17 44 ORA ($2Z2),Y | 49 31 AND ($ZZ),Y 
18 12 + ORA ($ZZ) | 50 32 + AND ($ZZ) 
19 18 | 51 33 

20 14 + TRB $2Z | 52 34 + BIT SZZ,X 
21 15 ORA $22,X | 53 35 AND $772,X 
22 16 ASL $ZZ,X | 54 36 ROL $2Z,X 
23 17 | 55 37 

24 18 CLC | 56 38 SEC 
25 19 ORA $HHLL,Y | 57 39 AND SHHLL,Y 
26 1A + INCA | 58 3A +DECA 
27 1B | 59 3B 

28 1C + TRB SHHLL | 60 3C + BIT $SHHLL,X 
29 1D ORA SHHLL,X | 61 3D AND SHHLL,X 
30 1E ASL $HHLL,X | 62 3E ROL $HHLL,X 
31 1F | 63 3F 
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DEZ-Zahl HEX-Zahl 


$ 


Befehl- 
Mnemonic 


DEZ-Zahl HEX-Zahl 


S 


Befehl- 
Mnemonic 


RTI 
EOR ($2Z,X) 


EOR $Z7Z 
LSR $ZZ 


PHA 
EOR #5$KK 
LSR A 


JMP SHHLL 
EOR $HHLL 
LSR SHHLL 


RTS 
ADC ($2Z,X) 


STZ $2Z 
ADC $ZZ 
ROR $ZZ 


PLA 
ADC #SKK 
ROR A 


JMP ($HHLL) 
ADC S$HHLL 
ROR $HHLL 


EOR ($2Z),Y 
EOR ($2Z) 


EOR $7Z,X 
LSR $Z72,X 


CLI 
EOR SHHLL,Y 
PHY 


EOR $HHLL,X 
LSR S$HHLL,X 


+ 


BVS 
ADC ($ZZ),Y 
ADC ($ZZ) 


STZ $22,X 
ADC $22,X 
ROR $22,X 


SEI 
ADC SHHLL,Y 
PLY 


JMPCHHLL,X) 
ADC $HHLL,X 
ROR $HHLL,X 
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DEZ-Zahl HEX-Zahl Befehl- DEZ-Zahl HEX-Zahl Befehl- 

# Ss Mnemonic # Ss Mnemonic 
| 

128 80 + BRA | 160 AO LDY #SKK 
129 81 STA ($2ZZ,X) | 161 Al LDA ($ZZ,X) 
130 82 | 162 A2 LDX #SKK 
131 83 | 1693 A3 
132 84 STY $ZZ | 164 A4 LDY $2Z 
133 85 STA $72 | 165 A5 LDA $ZZ 
134 86 STX $Z7 | 166 Ab LDX $2ZZ 
135 87 | 167 A7 
136 88 DEY | 168 A8 TAY 
137 89 BIT #5KK | 169 A9 LDA #SKK 
138 8A TXA | 170 AA TAX 
139 8B 174 AB 
140 8C STY SHHLL ı 192 AC LDY SHHLL 
141 8D STA $HHLL | 173 AD LDA S$HHLL 
142 8E STX $HHLL | 174 AE LDX SHHLL 
143 8F | 175 AF 
144 90 BCC | 176 BO BCS 
145 91 STA ($SZZ),Y | 177 Bi LDA ($2Z),Y 
146 92 + STA ($ZZ) | 178 B2 + LDA ($22) 
147 93 | 179 B3 
148 94 STY 322,X | 180 B4 LDY $22,X 
149 95 STA $72,X | 181 B5 LDA $ZZ,X 
150 96 STX $ZZ,X | 182 B6 LDX $22,X 
151 97 | 183 B7 
152 98 TYA | 184 B8 CLV 
153 99 STA SHHLL,Y | 185 B9 LDA $HHLL,Y 
154 9A TXS | 186 BA TSX 
155 9B | 187 BB 
156 9GC + STZ SHHLL | 188 BC LDY SHHLL,X 
157 9D STA SHHLL,X | 189 BD LDA SHHLL,X 
158 9E + STZ SHHLL,X | 190 BE LDX SHHLL,Y 
159 9F | 191 BF 
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DEZ-Zahl HEX-Zahl 


# 


$ 


Befehl - 
Mnemonic 


DEZ-Zahl 


# 


HEX-Zahl 


$ 


Befehl- 
Mnemonic 


192 
193 
194 


CPY #SKK 
CMP ($2Z,X) 


CPY $ZZ 
CMP $27Z 
DEC $7Z 


INY 
CMP #$KK 
DEX 


CPY SHHLL 
CMP S$HHLL 
DEC S$HHLL 


224 


CPX #SKK 
SBC ($Z7Z,X) 


CPX $2Z 
SBC $27Z 
INC $2Z 


INX 
SBC #S$KK 
NOP 


CPX SHHLL 
SBC $HHLL 
INC $HHLL 


BNE 
CMP ($Z2),Y 
CMP ($ZZ) 


CMP $22,X 
DEC $22,X 


CMP $HHLL,Y 
PHX 


CMP $HHLL,X 


| 

| 

| 

| 

| 

| 

| 

| 
CLD | 
| 

| 

| 

| 

| 
DEC $HHLL,X | 
| 


+ 


BEQ 
SBC ($2ZZ),Y 
SBC ($ZZ) 


SBC $2Z,X 
INC $ZZ,X 


SED 
SBC $HHLL,Y 
PLX 


SBC $HHLL,X 
INC SHHLL,X 
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Hinweise zu den G655C02-Zusatzbefehlen: 


Der Befehl BRA ist vergleichbar mit den bekannten Branch-Befehlen 
BMI, BEQ etc. Der Unterschied hierbei ist nur, daß ohne jegliche 
Bedingung relativ gesprungen werden kann, 

Mittels DEC laßt sich auch der Akku dekrementieren. 

Mit PSX,PSY bzw. PLX,PLY konnen die Register X,Y ohne "Umweg" 
über den Akku direkt auf den Stack gelangen, bzw. von ihm zurück- 
geholt werden. 

Der Befehl STZ speichert den Wert 0 in der adressierten Speicher- 
zelle ab. 

TSB führt die OR-Operation auf den Akku-Inhalt und die adressier- 
te Speicherzelle M aus und legt das Ergebnis in M ab, 

TRB führt die UND-Operation auf NOT A und die adressierte Spei- 
cherzelle M aus und legt das Ergebnis in M ab, 

Es werden weiterhin zwei neue Adressierungsarten unterstützt: 


- die Befehle ADC, AND, CMP, EOR, LDA, ORA, SBC, STA sind ver- 
knupfbar mit der indirekten Zero-Page-Adressierung; symbolisch 
gekennzeichnet durch z.B. LDA ($72Z). Es besteht hierbei volle 
Identität mit der indirekt indizierten Adressierung (Beispiel: 
LDA ($ZZ),Y) bei angenommenen Y-Wert 0, 


- nur der Befehl JMP (SHHLL,X) weist die absolut indiziert indi- 


rekte Adressierung auf, Hierbei enthalten die Speicherzellen 
SHHLL+X,SHHLL+X+1 (L,H) die tatsächliche Sprungadresse, 
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Offsets von Basic-Befehlen und -Funktionen bzgl. Adresse $C09E 


Zwischen den Adressen SC0O9E und S$C19C sind in ASCII-Kodierung 
sämtliche VC-20-Befehle und -Funktionen hintereinander abgespei- 
chert. Tabelle A.5.3 liefert eine Gegenuberstellung aller dieser 
Worte mit deren Offset bzgl. der Adresse SCO9E, 

Beispiel: das Wort LOAD weist gemaß Tabelle A.5.3 einen Offset 
von 4B auf, ist demnach ab der Adresse SCO9E+4B=SCOE9 abgespei- 
chert. Das Ende eines Wortes wird einfach daran erkannt, daß das 
Bit 7 des letzten Zeichens gesetzt ist. Im Beispiel "LOAD" stehen 
ab Adresse SCOE9 die HEX-Werte: AC 4F 41 C4 (vgl. ASCII-Code- 
Tabellen im VC-20-Handbuch $S, 145-147 oder Programmier-Handbuch 
S. 186), Der letzte Buchstabe "D" ist also nicht als 44 sondern 
mit gesetztem Bit 7 als C4 gespeichert, 


END 00 ON 45 NEW 88 RND C4 
FOR 03 WAIT 47 TAB( 8B LOG Cc7 
NEXT 06 LOAD 4B TO ör EXP CA 
DATA 0A SAVE 4F FN 91 COS CD 
INPUT# DOE VERIFY 53 SPC( 93 SIN DO 
INPUT 14 DEF 59 THEN 97 TAN D3 
DIM 19 POKE 5C NOT 9B ATN D6 
READ 1C PRINT# 60 STEP 9E PEEK DI 
LET 20 PRINT 66 AND A7 LEN DD 
GOTO 23 CONT 6B OR AA STR$ EO 
RUN 27 LIST 6F SGN AF VAL E4 
IF 2A CLR 73 INT B2 ASC E7 
RESTORE 2C CMD 76 ABS B5 CHRS$ EA 
GOSUB 33 SYS 79 USR B8 LEFT$ EE 
RETURN 38 OPEN 7C FRE BB RIGHTS F3 
REM 3E CLOSE 80 POS BE MIDS F9 
STOP 41 GET 85 SQOR c1 GO FD 
Tabelle A.5.3 
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Betriebssystem-Fehlermeldungen 


Die in Tabelle A.5.4 zusammengestellten Fehlermeldungen konnen in 
eigenen Programmen bei Bedarf mitbenutzt werden, wenn die ent- 
sprechende Fehlernummer im X-Register übergeben und zur dazugeho- 
rigen Betriebssystem-Routine $SC43A = #50234 gesprungen wird. 


Fehlernummer | Fehlermeldung 
S # | 
01 1 | ? TOO MANY FILES 
02 2 | ? FILE OPEN 
03 3 | ? FILE NOT OPEN 
04 4 | ? FILE NOT FOUND 
05 5 | ? DEVICE NOT PRESENT 
06 6 | ? NOT INPUT FILE 
07 7 | ? NOT OUTPUT FILE 
08 8 | ? MISSING FILE NAME 
09 9 | ? ILLEGAL DEVICE NUMBER 
DA 10 | ? NEXT WITHOUT FOR 
0B 11 | ? SYNTAX 
0C 12 | ? RETURN WITHOUT GOSUB 
0D 13 | ? OUT OF DATA 
0E 14 | ? ILLEGAL QUANTITY 
OF 15 | ? OVERFLOW 
10 16 | ? OUT OF MEMORY 
11 17 | ? UNDEF’D STATEMENT 
12 18 | ? BAD SUBSCRIPT 
3 19 | ? REDIM’D ARRAY 
14 20 | ? DIVISION BY ZERO 
15 21 | ? ILLEGAL DIRECT 
16 22 | ? TYPE MISMATCH 
17 23 | ? STRING TOO LONG 
18 24 | ? FILE DATA 
19 25 | ? FORMULA TOO COMPLEX 
1A 26 | ? CAN’T CONTINUE 
1B 27 | ? UNDEF’D FUNCTION 
1C 28 | ? VERIFY 
1D 29 | ? LOAD 
1E 30 | ? BREAK 

Tabelle A,5.4 
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LOAD/SAVE-Betriebssystem-Meldungen 


Die in Tabelle A.5.5 aufgelisteten Meldungen können in eigenen 
Programmen benutzt werden: 


Offset | Meldung 
$ # | 
00 0 | 1/O ERROR # 
0C 12 | SEARCHING 
17 23 | FOR 
1B 27 | PRESS PLAY ON TAPE 
2E 46 | PRESS RECORD & PLAY ON TAPE 
49 723 | LOADING 
51 81 | SAVING 
59 89 | VERIFYING 
63 99 | FOUND 
6A 106 | OK 

Tabelle A.5.5 


Zwei Befehle sind hierzu notwendig: 


im M-PGM: LDY #$ ($-Offset) 
JSR SF1E2 
im B-PGM: POKE 782, (#-Offset):SYS 61922 


Die hier angegebenen Anweisungen für Basic-Programme sind nur der 
Vollständigkeit halber angegeben, denn mittels PRINT-Anweisung 
ist die Ausgabe einer Meldung ja wesentlich einfacher. 
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YIDEO- Farb- | Inhalt: | Inhalt: | Inhalt: 
Speicher ' Speicher 648 : 36866 369693 
sb: | ab: |= sgzag | = s5002 | = s9005 


iZ—————— 


“096 | arass | | | ann 15 
AND 127 
s1add |= +9400 |or 132 


j 


“se | 38408 i 127 lanı 15 


s1200 je +9608 128 | our 192 


1400 I 33448 


5120 37886 


5632 127 lan ı5 
£160R ; 128 |oR zee 


FREE mn 


6144 37888 | AND 15 


1800 ze 3404 j or 224 


6656 N 36488 AND 15 


| 
sınaa ‚= 9600 28 OR 224 
L 


37888 o "AND 15 


| 3408 or 248 


7688 398488 |AnD 15 


sIEBd = 19600 | OR 248 
| 1 





Tabelle A.5.6 
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Die Tabelle A.5.6 gibt die Beziehung an zwischen den Video- und 
Farbspeichern sowie den Speicherzellen #648, #36866 und #36869 
für 8 mögliche Fälle, die Sicht durch das "Fenster" in den VC-20 
hinein sinnvoll zu variieren. 


Die Benutzung dieser Tabelle wird anhand folgenden Beispiels ein- 
sichtig: 

Nehmen wir an, Sie wollen den Bildschirmspeicher (Video-Speicher) 
ab Adresse #5632 = $S1600 festlegen, dann geben Sie im Direkt- 
oder Programm-Modus ein (vgl, Nr. 4 in Tabelle A.5.6): 


POKE 648,22:POKE 36866 ,PEEK(36866) AND 127 OR 128: 
POKE 36869, PEEK(36869) AND 15 OR 208 (Return) 


Der Farbspeicher wird hierbei (nicht von Ihnen beeinflußbar) ab 
Adresse #38400 = $9600 beginnen. 


Die folgende Tabelle A.5.7 ist als Ergänzung zu A.5.6 anzusehen, 
um das Bit-Setzen bzw. -Loschen per AND- und OR-Operationen in 
obiger Zeile besser zu verstehen. Die Numerierung 1-8 ist sinnge- 
maß mit Tabelle A.5.6 in Beziehung zu bringen. 


Nr. | Zelle #36869 | Zelle #36866 
| = 59005 | = 59002 
| Bit 7: BiG6: Bit 5 Bit | Bit 7 
1 | 1 1 0 0 | 0 
2 | 1 1 0 0 | 1 
3 | 1 1 0 1 | 0 
4 | 1 1 0 1 | 1 
5 | 1 1 1 0 | 0 
6 | 1 1 1 0 | 1 
7 | 1 1 1 1 | 0 
8 | 1 1 1 al | 1 
Tabelle A.5.7 


342 


A.5 Tabellen 


Zeichengenerator- | Zelle #36869 | Bits setzen 
Speicher ab: | = $9005 | mit: 
$ # | Bit 3 Bit 2 Bit 1 Bit 0 | AND 240 OR 
0000 0 | 1 0 0 0 | 8 
0400 1024 | 1 0 0 1 | 9 
0800 2048 | 1 0 1 0 | 10 
0C00 3072 | 1 0 1 1 | 11 
1000 4096 | 1 1 0 0 | 12 
1400 5120 | 1 1 0 1 | 13 
1800 6144 | 1 1 1 0 | 14 
1C00 7168 | 1 1 1 4 | 15 
8000 32768 | 0 0 0 0 | 0 
8400 33792 | 0 0 0 1 | 1 
8800 34816 | 0 0 1 0 | 2 
8C00 35840 | 0 0 1 1 | 3 
9000 36864 | 0 1 0 0 | 4 
9400 37888 | 0 1 0 1 | 5 
9800 38912 | 0 1 1 0 | 6 
IC00 39936 | 0 1 q 1 | 7 
Tabelle A.5.8 


Die Tabelle A.5.8 zeigt den Zusammenhang zwischen dem Inhalt der 
ersten 4 Bits des VIC-Kontrollregisters CR5 (Adresse #36869) und 
der dadurch adressierten Anfangsadresse des Zeichenspeichers, 
Beispielsweise wird mittels: 


POKE 36869,PEEK(36869) AND 240 OR 8 (Return) 


der Zeichengenerator auf den Bereich $0000 bis SO3FF fur die nor- 
malen und $0400 bis $SO7FF fur die invertierten (Cursor |) Zeichen 
eingestellt. Das VC-20 Betriebssystem "greift" sich also fur das 
Zeichen "@" (s, Anhang H im VC-20-Handbuch) die ersten 8 Bytes, 
für "A" die zweiten 8 Bytes, etc,, aus dem oben genannten Bereich 
heraus und stellt deren Inhalte in Form von Pixels auf dem 
Bildschirm dar. Natürlich werden Sie nach der Eingabe obigen Bei- 
spiels nicht besonders sinnvolle Zeichen zu sehen bekommen. Geben 
Sie dennoch die Buchstaben T und Y ein. Sie konnen somit ohne 
großen Aufwand die rasch sich verändernden Inhalte der Zellen 
SA0,A1,A3 (VC-20-Uhr) sowie $SCD (Cursor-Blinkzähler) beobachten. 
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Eine weitere Anwendung der obigen Tabelle ist die Umschaltung von 
Großschrift/Graphik-Modus auf den Klein-/Großschrift-Modus bzw. 
umgekehrt, 


Einschalten des: 


POKE 36869 ,PEEK(36869) AND 242 Klein-/Großschrift-Modus 
oder ?CHR$(14) 


POKE 36869 ,PEEK(36869) AND 240 Großschrift/Graphik-Modus 
oder ?CHR$(142) 


Inhalte der Zellen $C5=#197 und $CB=#203 bei gedrückter Taste 


In so manchen Anwendungsfällen, z.B. in zahlreichen Spielen, ist 
es wahrend des Programmablaufs nicht so sehr bedeutsam zu erken- 
nen, welche Taste der Benutzer vor einiger Zeit eingegeben hat, 
sondern welche Taste just in dem Moment sich in gedrückter Stel- 
lung befindet, in dem diese Information auch vom Programm sofort 
ausgewertet wird. Außerdem soll hierbei auch nicht die Anzahl des 
Druckens dieser Taste, sondern vielmehr die gedrückte Stellung an 
sich von primäarer Bedeutung sein. 


Währenddessen die erstgenannte Möglichkeit durch den oft benutz- 
ten INPUT-Befehl realisiert wird (die gedrückten Tasten - auch 
die wiederholt gedruckten - werden im Tastaturpuffer zwischenge- 
speichert), geschieht die Erkennung der zweiten Moglichkeit ein- 
fach durch Auslesen des Inhalts von Speicherzelle #197 oder #203 
mittels PEEK(203). 


Falls also z.B. an einer bestimmten Stelle eines Programms ein 
Sprung abhängig vom Drücken der Fi-Taste gemacht werden soll, so 
ließe sich das einfach verwirklichen durch: 

IF PEEK(203)=39 THEN ... 
Nebenbei bemerkt, durch POKE 37154,0 wird die gesamte Tastatur 


gesperrt. In so manchen PGM’en kann das von Vorteil sein. POKE 
37154,255 führt wieder den alten Zustand herbei. 
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Regi- | 
ster | 7 
—— 11 
CRO | I | 
=sel#-] 
GRi | 5 
we) Data 
CR2 | v9 | 
ae Eee 
CR3 | RO | 
fen] 
CRA4_ | R8 - 
- - - | - - 
CR5S | /V13 
- - - | -- 
CRb: || LH = 
- - - | -- 
CR’ | LV = 
- - - | -- 
CRB | PX 
- - - | - - 
ECRI | PY 
ee 
CRA | SW | 
a Ei 
CRB | SW | 
ae ke. 
CRC | SW | 
ee 
CRD | 54 | 
ee 
CRE | Ac 
- - - | - - 
CRF | Hi 


Video-Interface-Chip (VIC 6561) 


v12 v1 vı10 | /C15 cCi12 cı11l CiO | 
un nun nn | 


Horizontale Position des Lichtgriffels | 


Tongenerator 2 (Mittlere Tone) | 
a u u a le Er er ee N te ae a nee u Naar va | 
Tongenerator 3 (Hohe Tone) | 
=. u a a aa a u ws [zz aa an | 
Tongenerator 4 (Geräusche) | 


u EZ ZZ 2 esse 
= Hilfs-Farbe Lautstärke | 


Tabelle A.5.10 
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Erläuterungen zur Tabelle A.5.10 


zu CRO:; 


zu CR1: 


zu CR2: 


zu CR3: 


Der Ausgangswert von SH (Bits 0-6) ist #12. Die Verrin- 
gerung (Vermehrung) um 1 entspricht einer Verschiebung 
des Bildschirms um 1/2 Zeichen = 4 Pixels nach links 
(rechts), 

I (Bit 7) ist das sogenannte Interlace-Bit. Bei geeigne- 
tem Bildschirm und passendem Hardware-Zusatz soll es an- 
geblich möglich sein, ein vom Sender oder vom Videore- 
korder herrührendes Bild in transparenter Weise mit In- 
formationen vom VC-20 zu versehen. 


Der Ausgangswert von SV ist #38. Die Verringerung (Ver- 
mehrung) um 1 entspricht einer Verschiebung des Bild- 
schirms um 1/8 Zeichen = 2 Pixels nach oben (unten). 


Der Ausganswert von NL (Bits 0-6) ist #22 (namlich 22 
Zeichen/Zeile),. 

v9 (Bit 7) ist Adreßbit 9 der Videospeicheranfangs- 
adresse (weiteres siehe Tabelle A.5.7). 


D (Bit 0) ist das Double-Bit. Wenn es auf 0 gesetzt ist, 
dann ist ein Zeichengroße als 8x8-Pixelmmatrix defi- 
niert. Ist es auf 1 gesetzt (dies geschieht z.B. mittels 
Eingabe von: POKE 36867 ,PEEK(36867) OR 1), dann wird je- 
des Zeichen als 8x16-Pixelmatrix dargestellt. Hierbei 
finden dann allerdings im gewohnten VC-20-Bildschirmrah- 
men nicht mehr 506, sondern nur noch die Halfte = 253 
Zeichen Platz, Zur besseren Verdeutlichung sei hier er- 
wahnt, daß bei Ausgabe eines Zeichens auf dem Bild- 
schirm zur dessen Darstellung 16 hintereinanderliegende 
Bytes (= 16 mal 8 Bits = 128 Pixels) im Zeichenspeicher, 
wo immer dieser auch liegen mag (siehe Tabelle A.5.8), 
"abgegriffen" werden, Im Falle von D=0 sind es folge- 
richtig nur 8 Bytes, 

Der Ausgangswert von NR (Bits 1-6) ist binar 010111 = 
#23 (nämlich 23 Zeilen). Da jedoch diese Bitfolge ab Bit 
1 beginnt, entspricht der Wert #23 bei Vernachlässigung 
der Bits 0 und 7 dem doppelten Wert, also #46. 

RO ist das niederwertigste Bit zu CR4. 
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zu CR4: 


zu CR5: 


Zusammen mit Bit 7 des CR3 als niederwertigstes Bit ent- 
spricht der dezimale Wert dieses Kontrollregisters der 
Nummer derjenigen Zeile, in der sich augenblicklich der 
Kathodenstrahl zur Darstellung der Pixels befindet. 


Bits 0-3 sind die Adreßbits 10,11,12 und negiert-15 (der 
Schrägstrich in /C15 weist auf die negierte Bedeutung 
dieser Adreßleitung hin) der Zeichengeneratoranfangsad- 
resse (siehe Tabelle A.5.8). 

Bits 4-7 sind zusammen mit Bit 7 des CR2 die Adreßbits 
9,10,11,12 und negiert-13 (der Schrägstrich in /V13 
weist auf die negierte Bedeutung dieser Adreßleitung 
hin) der Videospeicheranfangsadresse (siehe Tabelle A.5. 
Pe 


zu CRA-CRD: SW (Bit 7) ist das Switch-Bit. Wenn es auf 1 gesetzt 


zu CRE: 


zu CHF: 


ist, werden die Tone gemaß der Inhalte der Bits 0-6 in 
der vorgegebenen Intensitat (Bits 0-3 des CRE) an den 
Audio-Ausgang abgegeben. 


Bits 0-3 beeinflussen die Lautstärke der auszugebenden 
Tone. Wert 0 heißt: keine Tonausgabe, 

Bits 4-7 adressieren die Farben der Hilfs-Farbe gemaß 
Tabelle A.5.12. Die Hilfsfarbe wird dann benötigt, wenn 
ein Zeichen (bestehend aus einer 8x8-Pixelmatrix bei D=0 
in CR3) nicht nur in einer einzigen Farbe gemaß Vorgabe 
der Bits 0-2 (die Farben 0-7 in Tabelle A.5.12) der zum 
Videospeicher zugehörigen Farbspeicherzellen, sondern in 
bis zu vier verschiedenen Farben dargestellt werden 
soll. Dieser sogenannte Mehrfarb-Modus wird durch Setzen 
des Bit 3 der jeweiligen Farbspeicherzelle eingeschal- 
tet. Der Wert eines Bit-Paars (4 Bit-Paare gibt es in 
einer Pixelzeile, ein 8x8-Pixel-Zeichen besteht aus 8 
Pixelzeilen) eines Zeichens adressiert die in diesen 2 
Pixels gewünschte Farbe gemaß Tabelle A.5.11. 


Bits 0-2 (Werte 0-7) gibt gemaß Tabelle A.5.12 die Farbe 
des Bildschirmrahmens an, 

B (Bit 3) ist das Background-Bit, welches im Ausgangszu- 
stand gesetzt ist. Dies bedeutet das ein Zeichen mit der 
Vordergrundfarbe (Inhalt der Bits 0-2 der entsprechenden 
Farbspeicherzelle) auf einem Hintergrund der in Bits 4-7 
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angegebenen Farbe dargestellt wird. Ist B nicht gesetzt, 
so werden diese Farbverhältnisse einfach umgekehrt. Auf 
diese Weise kann man also erreichen, daß die Hinter- 
grundfarben jedes einzelnen Zeichenplatzes verschieden 
sind. übrigens tritt der in CRE besprochene Mehrfarb- 
Modus außerkraft, wenn B=0 ist. 

Bits 4-7 adressieren die Hintergrundfarbe gemaß Tabelle 
A.5.12. 


Bits Farbe 
00 Hintergrundfarbe (s. CRF) 
01 Rahmenfarbe (s. CRF) 
10 Vordergrundfarbe 
(Inhalt der Bits 0-2 des Farbspeichers) 
11 Hilfs-Farbe 


Tabelle A.5.11 


Bits S Farbe 
0000 0 Schwarz 
0001 1 Weiß 

0010 2 Rot 

0011 3 Turkis 
0100 4 Violett 
0101 5 Grun 

0110 6 Blau 

0111 7 Gelb 

1000 8 Orange 
1001 9 Hellorange 
1010 A Rosa 

1011 B Hellturkis 
1100 C Hellviolett 
1101 D Hellgrun 
1110 E Hellblau 
1111 F Hellgelb 


Tabelle A.5.12 
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Abkürzungen 
Abspeichern 
A/D-Wandler 
Arbeitsspeicher 
ASCII <-- --> Video 
Auflösung 

AUTOINPUT 
AUTONUMBER 
Autostart 


Basic-Anfang 
Basic-Autostart 
Basic-Ende 
Basic-Loader 
Basic-Programm-Ende 
Basic-Programmzeile 
Basic-Token 
Baudot-Code 

Befehle 
Befehls-Definition 
BEFEHL-TASTEN 
Begriffserklarungen 


181, 
69, 


69, 
326, 


275 
106 
280 

69 
266 
264 
251 
164 
223 


69 
224 
69 
281 
142 
78 
281 
281 
333 
111 
95 
280 


Betriebssystem-Fehlermeldungen 


Betriebssystem-Routinen 308, 
Betriebssystem-Zusatzroutine 


Bildschirm-Code 
Bildschirm kopieren 
Bildschirm-Speicher 
Bit-Mapping 

BREAK 

Bubble-Sort 


CHECKSUM 
Code-Konvertierung 
COMMAND 

COMPARE 

CONT 

CONVERT 
Cursor-Steuerung 


DATA 
DATA-Erzeuger 
Datassette 


Dauer einer Befehlsausführung 


Default 
DELETE 
Deskriptor 
DEZ-->HEX 
Dezimal 
Directory 
DISCARD 


Diskette - Fehlernummern 


136, 142, 


90, 


326, 


339 
339 


292 
282 

36 
282 
258 
136 
282 
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doppelte Hohe 
Drehregler 
Drucker 

DUMP 


Expansion-Port 


Farbspeicher 
Feld-Anfang 
Feld-Ende 
Fernschreiber 
FETCH 
Filehandling 
File-Kennzeichen 
FILL 

FIND 

Flags 
Fließkomma-Zahl 
Floppy-Nummer 
Füllen 
Funk£fernschreiben 
Funktions-Tasten 
Funktions-Variable 


6655C02 


G65SC02-Zusatzbefehle 


Garbage-Collection 
Gleitkomma-Feld 
Gleitkomma-Variable 
Gleitkomma-Zahl 
GOSUB Variable 

GOTO Variable 
Grafik 

Grundversion 


Hardcopy 
HEX-->DEZ 
Hexadezimal 
HIGH-Byte 
HIGH-RES 


Hochauflösende Graphik 


HOME 


INPUT 
Integer-Feld 
Integer-Variable 
Integer-Zahl 
Interface 
Interrupt 
Interrupt-Rotuine 


Joystick(s) 
JUMP 


285, 326, 333 


285 
285 
285 
286 


si, 57.64 


160 


Kassetten-Puffer 
KEEP 

Keller 

Klammer 
Konvertierung 
Kopierschutz 


188 


‚ 


Laden 
Lichtgriffel 
Lightpen 
Link 
LISTschutz 
LOAD 
LOW-Byte 


69, 


106, 


Maschinenprogramm 107, 177, 
Mnemonics 
Modul-Programme 223, 
NEW 


Offset 
OLD 
OLD für Diskette 


287, 


Paddle 

Page 

Pixel 

Pointer 
Portabilität 
Programm-Status-Wort 
Programm-Struktur 


299 


REGENERIEREN 
relocatable 
REM-Invertierer 
RENUMBER 

RESET 

Routine 

RS 232 

RTTY 


23, 


SAVE * 106 
Scanner-Routine 

SCRATCH 

SCREEN COPY 

Schnittstelle 

SEARCH 

Seitensprung 
Sekundäradresse 
Softwareschutz 

Sortieren 

SPACE 

Speicherbereiche verschieben 


101 
118 
287 
271 
266 
250 


106 


13 
287 
247 
340 
287 


325 
326 
231 


142 


338 
142 


18 
288 
288 
288 
214 
288 

78 


43 
289 
151 
156 
289 
290 
290 
23 


340 
296 


36 
290 
239 
219 
104 
247 
211 
291 
195 


351 


Register 


Speichererweiterung 214 
Speichern 106 
Speicherorganisation 69 
Sprungadresse 337 
R 269 
Stack 291 
Stapel 291 
String 90, 239, 291 
String-Eingabe, automatische 251 
String-Variable 170, 291 
Suchen 203, 239 
Tabellen 325 
Tape-Header 102 
Tastatur 92 
- Abfrage 92 
- Verriegelung 92 
Temperaturfühler 21 
Thermometer 21 
Timer 291 
Token 69, 291 
TRANSFER 195 
übertragen 195 
Uhr 235 
Umlaute 269 
Umschaltung in GV, AV und 3K-V 
215 
USER-Port 292 
Utility 292 
VALIDATE 43 
VARSUB 160 
Variablen abspeichern 169 
Variablen-Belegungstabelle 83 
Vergleichen 195 
Vektor 293 
VIA 293 
VIC 293, 346 
Video-Interface-Chip 293, 346 
Video <---> ASCII 266 
Video-Speicher 261, 293, 342 
VIEW 118 
V.24 294 
Zeichen 268 
- doppelte Hohe 268 
- 8-fach-Vergroßerung 267 
Zeichengenerator 259; 294, 343 
Zeiger 295 
Zeilen loschen 86 
Zeilen-überlänge 69 
Zero-Page 295 
Zero-Page Adressen 296, 337 


Fachbücher von 
Markt & Technik 


Software-Auswahl leicht gemacht 
2. überarbeitete Auflage 


1983, 423 Seiten, 2000 Programmbeschreibungen 
Dieses Buch gibt Auskunft über Systemsoftware, 
branchenneutrale Anwendungssoftware, bran- 
chenorientierte Anwendungssoftware und tech- 
nisch-wissenschaftliche Software in Form von 
Kurzbeschreibungen der einzelnen Softwarepake- 
te. Aus allen Anwendungsbereichen für Personal 
Computer. 


Best.-Nr. MT 340 
DM 58,—* 


Hardware-Auswahl leicht gemacht 
2. überarbeitete Auflage 


1982/83, 326 Seiten 

Die wichtigsten Daten von über 200 Personal 
Computer-Systemen. Mit aktuellen Marktüber- 
sichten für Personal Computer sowie die wichtig- 
sten Peripheriegeräte, mit einführenden Artikeln 
zu den verschiedenen Gerätetypen, Begriffserläu- 
terungen, Auswahlkriterien (Checklisten), Trend- 
berichten und Bezugsquellen. Eine Hilfestellung 
sowohl für den Computer-Einsteiger als auch für 
den »Profi«. 


Best.-Nr. MT 350 
DM 44,—* 


K.-H. Heß 
Basic-Programme für CBM/VC 20-Computer 


1983, 150 Seiten 

Die verschiedenen Aufgabenstellungen werden 
analysiert, allgemeingültige Lösungswege erar- 
beitet und in CBM-Basic konvertiert. Alle Pro- 
gramme sind ausführlich dokumentiert und an- 
wendbar für die Serien CBM 2000, 3000, 4000 und 
8000. Einige Programme laufen auch auf VC 20 
und anderen basicprogrammierbaren Rechnern, 
wobei etwaige Programmanpassungen näher be- 
schrieben sind. 
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H.P. Blomeyer-Bartenstein 
Personal Computer — das intelligente Werk- 
zeug für jedermann 


1983, 352 Seiten 

Dieses Buch ist der Nachfolger des Standard- 
werks »Personal Computer — Kompaktrechner im 
Einsatz«. Es faßt den aktuellen Stand der Perso- 
nal Computer-Technik zusammen. 
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P. Rädsch 
Programme und Tips für VC-20 


1983, 152 Seiten 

Anhand von nützlichen und unterhaltsamen Pro- 
grammen können Sie mit diesem Buch die phanta- 
stischen und selten genutzten Möglichkeiten Ih- 
res VC-20 nun voll ausnützen. Detaillierte Beispie- 
le zeigen, wie Sie den Befehlswortschatz Ihres 
Home-Computers durch einfache Routinen ver- 
bessern können. Neben Spielprogrammen finden 
Sie u.a. auch Programme für Textverarbeitung, 
Rechnungsschreibung und Lagerverwaltung. 
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P. Ewald 

Software richtig eingekauft 

1983, 144 Seiten 

Informationen, Tips, Auswahlmethoden und Vor- 
gehensweisen für alle, die sich Suche, Analyse, 
Leasing oder Kauf der richtigen Software erleich- 
tern möchten 


Best.-Nr. MT 505 
DM 34,—* 


*alle Preise inkl. MwSt. zuzügl. Versandkosten 


Markt&lechnik 


Hans-Pinsel-Straße 2 - 8013 Haar bei München - 
Telefon 089/46 13-220 








a 


Dieses Buch soll dem VC-20-Benutzer in mehrerer Hinsicht nützlich sein: 

® Es ist eine Sammlung von gut erklärten, mit nützlichen Kommentaren versehenen und zudem noch praktisch 
in vielerlei Weise einsetzbaren Programmen. 

® Zum zweiten kann dieses Buch mit seinem umfassenden und sorgfältig zusammengestellten Anhang gut als 
Nachschlagewerk dienen. 

® Eine weitere Richtung, die mit diesem Buch eingeschlagen wird, ist das noch bisher nur spärlich beleuchtete 
Thema »Maschinenprogramme speziell für den VC-20«. Dem Leser, auch wenn er sich nur auf diesem Gleis 
bewegen möchte, bieten sich hierfür zahlreiche auch auf andere Problemlösungen übertragbare, gut kom- 
mentierte Beispiele. 

Dieses Buch zeigt dem Leser mannigfaltige Möglichkeiten dafür auf, daß sein VC-20 längst nicht nur als Spiel- 

computer, sondern auch für nützliche und kommerzielle Anwendungen im kleineren Rahmen einsetzbar ist. 

Beabsichtigt ist hiermit, nicht nur denjenigen Leserkreis anzusprechen, der bereits seit längerer Zeit mit dem 

VC-20 vertraut ist, sondern auch den, der erst frisch eingestiegen ist und nach kurzer Einarbeitungszeit sich mit 

vielen Fragen konfrontiert sieht. Mit gutem Recht kann behauptet werden, daß dieser in diesem Buch auf die 

meisten seiner Fragen eine Antwort zu finden vermag. 
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